/[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.9 by pfdietz, Tue Jul 1 02:08:54 2003 UTC revision 1.10 by pfdietz, Sat Jul 12 13:46:01 2003 UTC
# Line 358  Line 358 
358  (defgeneric meaningless-user-generic-function-for-universe (x y z)  (defgeneric meaningless-user-generic-function-for-universe (x y z)
359    (:method ((x integer) (y integer) (z integer)) (+ x y z)))    (:method ((x integer) (y integer) (z integer)) (+ x y z)))
360    
361  (eval-when #+gcl (load) #-gcl (:load-toplevel)  (eval-when (:load-toplevel)
362    (compile 'meaningless-user-function-for-universe)    (compile 'meaningless-user-function-for-universe)
363    (compile 'meaningless-user-generic-function-for-universe)    (compile 'meaningless-user-generic-function-for-universe)
364    )    )

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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