Commit a6940e07 authored by pfdietz's avatar pfdietz
Browse files

Change (integer (0)) to (integer 1) to avoid typep bug in gcl

parent 8124c167
......@@ -97,7 +97,7 @@
(is "file-length.lsp" :direction :input)
(file-length is)))))
(and (= (length results) 1)
(typep (car results) '(integer (0)))
(typep (car results) '(integer 1))
t))
t)
......@@ -171,6 +171,6 @@
(declare (special *foo*))
(let ((s (make-synonym-stream '*foo*)))
(unwind-protect
(typep* (file-length s) '(integer (0)))
(typep* (file-length s) '(integer 1))
(close s))))
t)
......@@ -318,7 +318,7 @@
;;; Old roman numerals
(defun old-roman-numeral (x)
(assert (typep x '(integer (0))))
(assert (typep x '(integer 1)))
(let ((n-m 0)
(n-d 0)
(n-c 0)
......
Markdown is supported
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