/[gcl]/gcl/ansi-tests/universe.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/universe.lsp

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

revision 1.25 by pfdietz, Sat Apr 30 21:32:34 2005 UTC revision 1.26 by pfdietz, Sun May 1 01:30:23 2005 UTC
# Line 468  Line 468 
468    
469  (defparameter *methods*  (defparameter *methods*
470    (list    (list
471     #+(or (not :gcl) :ansi-cl)     #+(or (not :gcl) :ansi-cl )
472     (find-method #'meaningless-user-generic-function-for-universe nil     (find-method #'meaningless-user-generic-function-for-universe nil
473                  '(integer integer integer))                  (mapcar #'find-class '(integer integer integer)))
474     ;; Add more methods here     ;; Add more methods here
475     ))     ))
476        

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

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