2 lines
51 B
Text
2 lines
51 B
Text
(DEFUN NUMERICP (X)
|
|
(IF (STRING->NUMBER X) T))
|
(DEFUN NUMERICP (X)
|
|
(IF (STRING->NUMBER X) T))
|