~remexre/nrutil

24237db0fabb5a6043b54bf504765caad4fbb25a — Nathan Ringo 4 months ago 5e83ff3
avoid capturing slot names
1 files changed, 3 insertions(+), 3 deletions(-)

M main.lisp
M main.lisp => main.lisp +3 -3
@@ 156,10 156,10 @@
                            :type ,field-type)
                          (cddr field))))
      (collect spec into class-fields)
      (collect (cons field-name (and (getf (cddr field) :initform)
                                     (list (getf (cddr field) :initform)))) into ctor-args)
      (for var = (gensym))
      (collect `((,kwd ,var) ,(getf (cdr spec) :initform)) into ctor-args)
      (collect (list kwd field-type) into ctor-type-args)
      (appending (list kwd field-name) into field-kwargs)
      (appending (list kwd var) into field-kwargs)
      (appending (list kwd `(list 'quote (,reader-name object)))
        into print-object-args)
      (finally (return