Changeset 910

Timestamp:

Feb 16, 2005, 11:09:24 AM (20 years ago)

Author:

bryan

Message:

a string-designator can also be a singleton character, update
string-argp to reflect that.

File:

• trunk/ccl/level-1/l1-utils.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-utils.lisp

@@ -1190 +1190 @@
 
 (defun string-argp (arg)
- (if (symbolp arg) (symbol-name arg)
-   (if (stringp arg) (ensure-simple-string arg)
-     nil)))
-
+  (cond ((symbolp arg) (symbol-name arg))
+        ((typep arg 'character) (string arg))
+        ((stringp arg) (ensure-simple-string arg))
+        (t nil)))
+  
 (defun symbol-arg (arg)
   (unless (symbolp arg)