Parent Directory | Revision Log | Patch
revision 1.3 by camm, Tue Sep 24 14:47:01 2002 UTC | revision 1.4 by camm, Wed Sep 25 15:03:17 2002 UTC | |
---|---|---|
# | Line 46 | Line 46 |
46 | (t | (t |
47 | (setq type (normalize-type type)) | (setq type (normalize-type type)) |
48 | (when (subtypep (car type) 'list) | (when (subtypep (car type) 'list) |
49 | (if (and (eq 'null (car type)) (not (equal size 0))) | |
50 | (error "Cannot make 'null sequence of size ~S." size)) | |
51 | (return-from make-sequence | (return-from make-sequence |
52 | (if iesp | (if iesp |
53 | (make-list size :initial-element initial-element) | (make-list size :initial-element initial-element) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |