/[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.28 by pfdietz, Sun May 22 01:09:37 2005 UTC revision 1.29 by pfdietz, Wed Jun 15 03:05:21 2005 UTC
# Line 465  Line 465 
465          (macro-function 'cond)          (macro-function 'cond)
466          #'meaningless-user-function-for-universe          #'meaningless-user-function-for-universe
467          #'meaningless-user-generic-function-for-universe          #'meaningless-user-generic-function-for-universe
468          #'(lambda (x) x)))          #'(lambda (x) x)
469            (compile nil '(lambda (x) x))))
470    
471  (defparameter *methods*  (defparameter *methods*
472    (list    (list
# Line 524  Line 525 
525                    *methods*))                    *methods*))
526      '(;;; Others to fill in gaps      '(;;; Others to fill in gaps
527        1.2s0 1.3f0 1.5d0 1.8l0 3/5 10000000000000000000000))))        1.2s0 1.3f0 1.5d0 1.8l0 3/5 10000000000000000000000))))
528    
529    (defparameter *classes*
530      (remove-duplicates (mapcar #'class-of *universe*)))
531    
532    (defparameter *built-in-classes*
533      (remove-if-not #'(lambda (x) (typep x 'built-in-class))
534                     *classes*))

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

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