Changeset 8501


Ignore:
Timestamp:
Feb 17, 2008, 2:29:26 AM (12 years ago)
Author:
gz
Message:

in fcomp-function-arg: don't force any restrictions on nfunction names, let the compiler deal with it

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/nfcomp.lisp

    r8406 r8501  
    791791  (when (consp expr)
    792792    (if (and (eq (%car expr) 'nfunction)
    793              (symbolp (car (%cdr expr)))
    794              (lambda-expression-p (car (%cddr expr))))
     793             (lambda-expression-p (cadr (%cdr expr))))
    795794      (fcomp-named-function (%caddr expr) (%cadr expr) env)
    796795      (if (and (eq (%car expr) 'function)
Note: See TracChangeset for help on using the changeset viewer.