Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |