Changeset 910


Ignore:
Timestamp:
Feb 16, 2005, 7:09:24 PM (17 years ago)
Author:
bryan
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-utils.lisp

    r812 r910  
    11901190
    11911191(defun string-argp (arg)
    1192  (if (symbolp arg) (symbol-name arg)
    1193    (if (stringp arg) (ensure-simple-string arg)
    1194      nil)))
    1195 
     1192  (cond ((symbolp arg) (symbol-name arg))
     1193        ((typep arg 'character) (string arg))
     1194        ((stringp arg) (ensure-simple-string arg))
     1195        (t nil)))
     1196 
    11961197(defun symbol-arg (arg)
    11971198  (unless (symbolp arg)
Note: See TracChangeset for help on using the changeset viewer.