Lines Matching refs:descs
2137 (defmacro defstruct (struct &rest descs)
2158 (include-descs nil)
2164 (if (stringp (car descs))
2166 (pop descs)) forms))
2167 (setq descs (cons '(cl-tag-slot)
2169 descs)))
2192 include-descs (mapcar (function
2203 (setq descs (nconc (make-list (car args) '(cl-skip-slot))
2204 descs)))
2219 (old-descs (get include 'cl-struct-slots)))
2223 (while include-descs
2224 (setcar (memq (or (assq (caar include-descs) old-descs)
2226 (caar include-descs) include))
2227 old-descs)
2228 (pop include-descs)))
2229 (setq descs (append old-descs (delq (assq 'cl-tag-slot descs) descs))
2231 named (assq 'cl-tag-slot descs))
2245 (or named (setq descs (delq (assq 'cl-tag-slot descs) descs)))
2248 (let ((pos (- (length descs)
2249 (length (memq (assq 'cl-tag-slot descs)
2250 descs)))))
2253 (list '>= '(length cl-x) (length descs))
2265 (let ((pos 0) (descp descs))
2332 (list* '&cl-defs (list 'quote (cons nil descs)) args)
2334 (if (cl-safe-expr-p (cons 'progn (mapcar 'second descs)))
2346 (list 'quote descs))