Lines Matching full:setf
43 (setf cname (format nil "*~A*" cname)))
44 (setf cname (replace-regexp cname "_" "-"))
48 (setf char (schar cname n))
51 (setf newcase (if (upper-case-p char) :upper :lower))
57 (setf newcase :other))
61 (setf lastcase newcase)
65 (setf lastcase :other)))
71 (setf cname (format nil "+~A+" cname)))
72 (setf cname (substitute #\- #\_ cname))
74 (setf cname (format nil "%~A" cname)))
