/[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.7 by pfdietz, Tue May 6 12:13:26 2003 UTC revision 1.8 by pfdietz, Tue Jun 10 00:05:35 2003 UTC
# Line 347  Line 347 
347       (make-bar-structure :x 1 :y 'a :z nil)       (make-bar-structure :x 1 :y 'a :z nil)
348       ))       ))
349    
350    (defun meaningless-user-function-for-universe (x y z)
351      (list (+ x 1) (+ y 2) (+ z 3)))
352    
353    (defgeneric meaningless-user-generic-function-for-universe (x y z)
354      (:method ((x integer) (y integer) (z integer)) (+ x y z)))
355    
356    (eval-when (load)
357      (compile 'meaningless-user-function-for-universe)
358      (compile 'meaningless-user-generic-function-for-universe)
359      )
360    
361  (defvar *functions*  (defvar *functions*
362    (list #'cons #'car #'append #'values    (list #'cons #'car #'append #'values
363          (macro-function 'cond)          (macro-function 'cond)
364            #'meaningless-user-function-for-universe
365            #'meaningless-user-generic-function-for-universe
366          #'(lambda (x) x)))          #'(lambda (x) x)))
367    
368    (defvar *methods*
369      (list
370       ;; Add methods here
371       ))
372      
373    
374  (defvar *random-states*  (defvar *random-states*
375    (list (make-random-state)))    (list (make-random-state)))
376    
# Line 373  Line 392 
392        *structures*        *structures*
393        *functions*        *functions*
394        *random-states*        *random-states*
395          *methods*
396        nil)))        nil)))
397    
398  (defvar *mini-universe*  (defvar *mini-universe*
# Line 393  Line 413 
413                    *readtables*                    *readtables*
414                    *structures*                    *structures*
415                    *functions*                    *functions*
416                    *random-states*))                    *random-states*
417                      *methods*))
418      '(;;; Others to fill in gaps      '(;;; Others to fill in gaps
419        1.2s0 1.3f0 1.5d0 1.8l0 3/5 10000000000000000000000))))        1.2s0 1.3f0 1.5d0 1.8l0 3/5 10000000000000000000000))))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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