Changeset 11104


Ignore:
Timestamp:
Oct 16, 2008, 11:36:35 AM (11 years ago)
Author:
gz
Message:

Propagate r11101:r11103 from working-0711

Location:
trunk/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx1.lisp

    r11088 r11104  
    11751175           (eq (%car def) 'nfunction)
    11761176           (consp (%cdr def))
    1177            (symbolp (%cadr def)))
     1177           (or (symbolp (%cadr def)) (setf-function-name-p (%cadr def))))
    11781178    (note-function-info (%cadr def) nil env))
    11791179  (nx1-treat-as-call w))
  • trunk/source/lib/nfcomp.lisp

    r10942 r11104  
    857857    (let* ((forms (nreverse *fcomp-toplevel-forms*))
    858858           (*fcomp-stream-position* *fcomp-previous-position*)
    859            (lambda (if (null (cdr forms))
    860                      `(lambda () (progn ,@forms))
     859           (lambda (if T ;; (null (cdr forms))
     860                     `(lambda () ,@forms)
    861861                     `(lambda ()
    862862                        (macrolet ((load-time-value (value)
Note: See TracChangeset for help on using the changeset viewer.