Searched refs:defa1 (Results 1 – 1 of 1) sorted by relevance
122 (cond ,@(nreverse (defa1 desc '(second x) nil nil))))125 (defun defa1 (desc bas cdr result) function134 (setq result (defa1 (second desc) `(list 'car ,bas) nil result))135 (defa1 (third desc) `(list 'cdr ,bas) t result))138 (setq result (defa1 (car l) `(list 'car ,bas) nil result)141 ((eq 'struct (car desc)) (defa1 (cons (quote list) (cdr desc)) bas cdr result))