Changeset 8759


Ignore:
Timestamp:
Mar 13, 2008, 6:24:54 AM (11 years ago)
Author:
gb
Message:

In NOTE-FUNCTION-INFO, encode the lambda list (not the containing
lambda-expression.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-readloop.lisp

    r8169 r8759  
    329329             (info nil))
    330330        (when (lambda-expression-p lambda-expression)
    331           (multiple-value-bind (lfbits keyvect) (encode-lambda-list lambda-expression t)
     331          (multiple-value-bind (lfbits keyvect) (encode-lambda-list (cadr lambda-expression) t)
    332332            (setq info (cons (cons lfbits keyvect)
    333333                             (retain-lambda-expression name lambda-expression env)))))
Note: See TracChangeset for help on using the changeset viewer.