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

Diff of /gcl/pcl/gcl_pcl_boot.lisp

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

revision 1.2 by camm, Sat May 7 02:52:30 2005 UTC revision 1.3 by camm, Sat Jul 23 08:55:23 2005 UTC
# Line 524  work during bootstrapping. Line 524  work during bootstrapping.
524                    ,@(mapcan (lambda (a s)                    ,@(mapcan (lambda (a s)
525                                (when (and (symbolp s) (neq s t))                                (when (and (symbolp s) (neq s t))
526                                  (list `(class ,a ,s))))                                  (list `(class ,a ,s))))
527    ;                               (list `(type ,s ,a))))
528                              parameters                              parameters
529                              specializers)))                              specializers)))
530                 (method-lambda                 (method-lambda

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

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