Changeset 8680


Ignore:
Timestamp:
Mar 6, 2008, 10:32:30 PM (12 years ago)
Author:
gb
Message:

Don't call NCONC for effect (even though it's well-defined in this
case.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/macros.lisp

    r8646 r8680  
    843843      (if (assoc atom-or-list used-keys)
    844844        (warn "Duplicate keyform ~s in ~s statement." atom-or-list statement-type)
    845         (nconc used-keys (list (cons atom-or-list t))))
     845        (setq used-keys (nconc used-keys (list (cons atom-or-list t)))))
    846846      `((,(if (typep atom-or-list '(and number (not fixnum)))
    847847              'eql
     
    16851685    `(progn
    16861686       (eval-when (:compile-toplevel)
    1687          (note-function-info ',name nil ,env))
     1687         (note-function-info ',name '(lambda ,lambda-list ()) ,env))
    16881688       (compiler-let ((*nx-method-warning-name*
    16891689                       (list ',name
     
    19561956      `(progn
    19571957         (eval-when (:compile-toplevel)
    1958            (note-function-info ',function-name nil ,env))
     1958           (note-function-info ',function-name '(lambda ,lambda-list nil) ,env))
    19591959         (let ((,gf (%defgeneric
    19601960                     ',function-name ',lambda-list ',method-combination ',generic-function-class
Note: See TracChangeset for help on using the changeset viewer.