/[gcl]/gcl/ansi-tests/format-r.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/format-r.lsp

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

revision 1.4 by pfdietz, Mon Dec 6 14:04:21 2004 UTC revision 1.5 by pfdietz, Tue Aug 23 13:57:02 2005 UTC
# Line 318  Line 318 
318  ;;; Old roman numerals  ;;; Old roman numerals
319    
320  (defun old-roman-numeral (x)  (defun old-roman-numeral (x)
321    (assert (typep x '(integer (0))))    (assert (typep x '(integer 1)))
322    (let ((n-m 0)    (let ((n-m 0)
323          (n-d 0)          (n-d 0)
324          (n-c 0)          (n-c 0)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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