Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
f7967a6d
Commit
f7967a6d
authored
May 26, 2004
by
pfdietz
Browse files
Another abcl bug (0 is not of type list)
parent
909e697a
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/misc.lsp
View file @
f7967a6d
...
...
@@ -7158,4 +7158,32 @@ Broken at C::WT-C-INLINE-LOC.
12851164 182468232812 -2243976802 309299185674 2538150 1855615980)
0)
\ No newline at end of file
(deftest misc.376
(funcall
(compile
nil
'(lambda () ; (a b c d e f g h i)
#|
(declare (type (integer -3780481450018 4128865857054) a))
(declare (type (integer -15 7920255) b))
(declare (type (integer -2 1) c))
(declare (type (integer -6 157) d))
(declare (type (integer -3022 3523491) e))
(declare (type (integer -3 18632748) f))
(declare (type (integer -4 149) g))
(declare (type (integer -22 -1) h))
(declare (type (integer -176782576526 -1863239307) i))
(declare (ignorable a b c d e f g h i))
|#
(declare (optimize (speed 1) (space 1) (safety 2) (debug 1)
(compilation-speed 0)))
(dotimes (iv4 3
(multiple-value-bind (*s6*) (cons 0 0)
(progn (cdr *s6*) 0)))
(floor (rational (let ((*s2*
(rational (common-lisp:handler-case 0))))
0))))))
)
0)
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment