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

Diff of /gcl/pcl/gcl_pcl_defcombin.lisp

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

revision 1.3 by camm, Sat Jul 23 08:55:46 2005 UTC revision 1.4 by camm, Tue Aug 9 00:49:24 2005 UTC
# Line 527  Line 527 
527                             values)))))                             values)))))
528    
529    
530  (dolist (l '(find-class classp class-precedence-list))  (dolist (l '(find-class classp class-precedence-list class-name))
531    (setf (symbol-function (find-symbol (symbol-name l) 'si)) (symbol-function l)))    (setf (symbol-function (find-symbol (symbol-name l) 'si)) (symbol-function l)))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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