Changeset 8675


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

NOTE-FUNCTION-INFO: encode the lambda-list, not the lambda-expression.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-readloop.lisp

    r6018 r8675  
    327327             (info nil))
    328328        (when (lambda-expression-p lambda-expression)
    329           (multiple-value-bind (lfbits keyvect) (encode-lambda-list lambda-expression t)
     329          (multiple-value-bind (lfbits keyvect) (encode-lambda-list (cadr lambda-expression) t)
    330330            (setq info (cons (cons lfbits keyvect)
    331331                             (retain-lambda-expression name lambda-expression env)))))
Note: See TracChangeset for help on using the changeset viewer.