Changeset 11103


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

allow setf function names in nx1-%defun

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx1.lisp

    r11089 r11103  
    11811181           (eq (%car def) 'nfunction)
    11821182           (consp (%cdr def))
    1183            (symbolp (%cadr def)))
     1183           (or (symbolp (%cadr def)) (setf-function-name-p (%cadr def))))
    11841184    (note-function-info (%cadr def)(caddr def) env))
    11851185  (nx1-treat-as-call w))
Note: See TracChangeset for help on using the changeset viewer.