Lines Matching refs:setf
78 and error if a setf operation is performed on the address of this object.
380 `(cl::setf ,(identifier-convert-null
389 (cl::setf char (cl::schar cname n))
392 (cl::setf newcase (cl::if (cl::upper-case-p char) :upper :lower))
397 (cl::setf newcase :other))
399 (cl::setf lastcase newcase)
402 (cl::setf lastcase :other)))
409 `(cl::setf ,(identifier-convert-lispify
413 (cl::setf cname (cl::format nil "*~A*" cname)))
443 ;; setf functions should return the new value
549 (cl::setf (cl::find-class ',synonym) (cl::find-class ',of))
