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

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

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

revision 1.5 by pfdietz, Sat Jan 17 13:31:44 2004 UTC revision 1.6 by pfdietz, Sun Jun 26 14:52:06 2005 UTC
# Line 6  Line 6 
6  (in-package :cl-test)  (in-package :cl-test)
7    
8  (deftest identity.1  (deftest identity.1
9    (loop for x in *universe*    (check-predicate #'(lambda (x) (eqlt x (check-values (identity x)))))
10          always (eqlt x (check-values (identity x))))    nil)
   t)  
11    
12  (deftest identity.2  (deftest identity.2
13    (let ((x (ash 1 100)))    (let ((x (ash 1 100)))

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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