/[gcl]/gcl/pcl/pcl_macros.lisp
ViewVC logotype

Diff of /gcl/pcl/pcl_macros.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Wed Feb 26 22:21:42 2003 UTC revision 1.2 by camm, Tue Oct 7 21:06:33 2003 UTC
# Line 657  Line 657 
657  (defun do-standard-defsetfs-for-defclass (accessors)  (defun do-standard-defsetfs-for-defclass (accessors)
658    (dolist (name accessors) (do-standard-defsetf-1 name)))    (dolist (name accessors) (do-standard-defsetf-1 name)))
659    
660    ;; FIXME remove this when all is well
661  (defun do-standard-defsetf-1 (function-name)  (defun do-standard-defsetf-1 (function-name)
662    #+setf    #+setf
663    (declare (ignore function-name))    (declare (ignore function-name))
# Line 697  Line 698 
698                           (bindings (mapcar #'(lambda (x) `(,(gensym) ,x)) loc-args))                           (bindings (mapcar #'(lambda (x) `(,(gensym) ,x)) loc-args))
699                           (vars (mapcar #'car bindings)))                           (vars (mapcar #'car bindings)))
700                      `(let ,bindings                      `(let ,bindings
701                         (,setf-function-name ,(car (last form)) ,@vars)))))                         (funcall #',setf-function-name ,(car (last form)) ,@vars)))))
702            (format t "defsetfinf ~S~%" `(defsetf ,function-name ,helper))
703          (eval `(defsetf ,function-name ,helper)))          (eval `(defsetf ,function-name ,helper)))
704        #+Xerox        #+Xerox
705        (flet ((setf-expander (body env)        (flet ((setf-expander (body env)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26