Commit c2fbd9fd authored by ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

Fix IRONCLAD compilation.

parent 0b029448
...@@ -121,7 +121,7 @@ ...@@ -121,7 +121,7 @@
(t (t
(unless *prevent-fasl-circle-detection* (unless *prevent-fasl-circle-detection*
(assert (or (eq index t) (assert (or (eq index t)
(fixnump object)))))))) (integerp object)))))))) ;; strictly this should be 'long'
(declaim (ftype (function (cons stream) t) dump-cons)) (declaim (ftype (function (cons stream) t) dump-cons))
(defun dump-cons (object stream) (defun dump-cons (object stream)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment