Lines Matching defs:car
91 `(let ((,(car file) (open ,@(cdr file))))
94 (if ,(car file) (close ,(car file))))))
97 `(let ((,(car stream) (make-string-output-stream)))
99 (progn ,@body (get-output-stream-string ,(car stream)))
100 (and ,(car stream) (close ,(car stream))))))
105 (defsetf car (list) (value) `(progn (rplaca ,list ,value) ,value))
108 (defsetf caar (list) (value) `(progn (rplaca (car ,list) ,value) ,value))
110 (defsetf cdar (list) (value) `(progn (rplacd (car ,list) ,value) ,value))