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

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

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

revision 1.1 by pfdietz, Mon Oct 7 01:43:04 2002 UTC revision 1.2 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 6  Line 6 
6  (in-package :cl-test)  (in-package :cl-test)
7    
8  (deftest constantly.1  (deftest constantly.1
9    (let ((fn (cl::constantly 10))    (let ((fn (cl:constantly 10))
10          (x nil))          (x nil))
11      (loop for i from 0 to (min 256 (1- call-arguments-limit))      (loop for i from 0 to (min 256 (1- call-arguments-limit))
12            always (prog1 (eql (apply fn x) 10)            always (prog1 (eql (apply fn x) 10)
13                     (push 'a x))))                     (push 'a x))))
14    t)    t)
15    
16    (deftest constantly.2
17      (classify-error (cl:constantly))
18      program-error)
19    
20    (deftest constantly.3
21      (classify-error (cl:constantly 1 1))
22      program-error)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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