Lines Matching refs:cname
42 (defun identifier-convert-lispify (cname &key type)
43 (assert (stringp cname))
45 (setf cname (format nil "*~A*" cname)))
46 (setf cname (replace-regexp cname "_" "-"))
49 (dotimes (n (length cname))
50 (setf char (schar cname n))
70 (defun identifier-convert-low-level (cname &key type)
71 (assert (stringp cname))
73 (setf cname (format nil "+~A+" cname)))
74 (setf cname (substitute #\- #\_ cname))
76 (setf cname (format nil "%~A" cname)))
79 (read-from-string cname))