Ignore:
Timestamp:
May 15, 2009, 3:18:52 PM (11 years ago)
Author:
gz
Message:

merge r12050

File:
1 edited

Legend:

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

    r11958 r12069  
    295295  (multiple-value-bind (valid-p nm) (valid-function-name-p name)
    296296    (if valid-p nm (error "Invalid function name ~s." name))))
     297
     298
     299(defun maybe-setf-function-name (name)
     300  (if (and (consp name) (eq (car name) 'setf))
     301    (setf-function-name (cadr name))
     302    name))
    297303
    298304
Note: See TracChangeset for help on using the changeset viewer.