/[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.8 by pfdietz, Tue Jun 10 00:05:35 2003 UTC revision 1.9 by pfdietz, Tue Jul 1 02:08:54 2003 UTC
# Line 294  Line 294 
294        (make-array '(5) :element-type 'long-float        (make-array '(5) :element-type 'long-float
295                    :initial-contents '(1.0l0 2.0l0 3.0l0 4.0l0 5.0l0))                    :initial-contents '(1.0l0 2.0l0 3.0l0 4.0l0 5.0l0))
296        )        )
297        
298         ;; The ever-popular NIL array
299         (handler-case
300          (list (make-array '(0) :element-type nil))
301          (error () nil))
302    
303       ;; more kinds of arrays here later       ;; more kinds of arrays here later
304       ))       ))
305    
# Line 353  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 (load)  (eval-when #+gcl (load) #-gcl (: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.8  
changed lines
  Added in v.1.9

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