Function: frameset--make--cmacro

frameset--make--cmacro is a function defined in frameset.el.gz.

Signature

(frameset--make--cmacro CL-WHOLE &cl-quote &key VERSION TIMESTAMP APP NAME DESCRIPTION PROPERTIES STATES)

Documentation

compiler-macro for frameset--make.

Source Code

;; Defined in /usr/src/emacs/lisp/frameset.el.gz
;; Could not find source code, showing raw function object.
#[(cl-whole &rest --cl-rest--)
  ((let*
       ((version
	 (car (cdr (or (plist-member --cl-rest-- ':version) '(nil 1)))))
	(timestamp
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':timestamp)
	       '(nil (current-time))))))
	(app (car (cdr (plist-member --cl-rest-- ':app))))
	(name (car (cdr (plist-member --cl-rest-- ':name))))
	(description
	 (car (cdr (plist-member --cl-rest-- ':description))))
	(properties
	 (car (cdr (plist-member --cl-rest-- ':properties))))
	(states (car (cdr (plist-member --cl-rest-- ':states)))))
     (progn
       (let ((--cl-keys-- --cl-rest--))
	 (while --cl-keys--
	   (cond
	    ((memq (car --cl-keys--)
		   '(:version :timestamp :app :name :description
			      :properties :states :allow-other-keys))
	     (unless (cdr --cl-keys--)
	       (error "Missing argument for %s" (car --cl-keys--)))
	     (setq --cl-keys-- (cdr (cdr --cl-keys--))))
	    ((car (cdr (memq ':allow-other-keys --cl-rest--)))
	     (setq --cl-keys-- nil))
	    (t
	     (error
	      "Keyword argument %S not one of (:version :timestamp :app :name :description :properties :states)"
	      (car --cl-keys--))))))
       (cl-block frameset--make--cmacro
	 (cl--defsubst-expand
	  '(version timestamp app name description properties states)
	  '(cl-block frameset--make
	     (vector 'frameset version timestamp app name description
		     properties states))
	  nil cl-whole nil version timestamp app name description
	  properties states)))))
  (cl-struct-frameset-tags) nil
  "compiler-macro for `frameset--make'.\n\n(fn CL-WHOLE &cl-quote &key VERSION TIMESTAMP APP NAME DESCRIPTION PROPERTIES STATES)"]