This commit is contained in:
waldemar%netscape.com 2000-04-28 02:30:44 +00:00
Родитель 9c8cec86f9
Коммит cee3bc879e
2 изменённых файлов: 2 добавлений и 2 удалений

Просмотреть файл

@ -13,7 +13,7 @@
(+ (- (character-to-code c) (character-to-code #\A)) 10)
(if (character-set-member c (set-of-ranges character #\a #\z))
(+ (- (character-to-code c) (character-to-code #\a)) 10)
(bottom integer)))))
(bottom)))))
)))
(defparameter *sfg* (world-grammar *sfw* 'standard-function-grammar)))

Просмотреть файл

@ -13,7 +13,7 @@
(+ (- (character-to-code c) (character-to-code #\A)) 10)
(if (character-set-member c (set-of-ranges character #\a #\z))
(+ (- (character-to-code c) (character-to-code #\a)) 10)
(bottom integer)))))
(bottom)))))
)))
(defparameter *sfg* (world-grammar *sfw* 'standard-function-grammar)))