| /dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/src/ |
| H A D | clos-slotdef2.lisp | 13 &key name initform initfunction initargs
17 (declare (ignore name initform initfunction initargs type allocation
22 &key name initform initfunction initargs
28 (declare (ignore name initform initfunction initargs type allocation
34 &key name initform initfunction initargs
38 (declare (ignore name initform initfunction initargs type allocation
|
| H A D | defstruct.lisp | 837 (let ((initform (second slotarg)))
838 (if (constantp initform)
841 (cons initform (make-constant-initfunction (eval initform))))
845 (cons initform nil)) ; FIXME
955 initform
959 (setq slotname slotarg initform nil)
960 (setq slotname (first slotarg) initform (second slotarg)))
988 (if (constantp initform)
999 (let ((initer (cons initform initfunction))
1011 :initform initform
[all …]
|
| H A D | clos-slotdef1.lisp | 21 ((initform :type t :initarg :initform)
39 (defun make-inheritable-slot-definition-initer (initform initfunction)
40 (cons initform initfunction))
186 (initform nil initform-p)
222 (make-inheritable-slot-definition-initer initform initfunction)))
|
| /dports/lang/sbcl/sbcl-1.3.13/src/pcl/ |
| H A D | defclass.lisp | 203 (initform unsupplied))
232 (setf initform val))
249 (push (if (eq initform unsupplied)
274 (defun make-initfunction (initform)
275 (cond ((or (eq initform t)
276 (equal initform ''t))
278 ((or (eq initform nil)
279 (equal initform ''nil))
281 ((or (eql initform 0)
282 (equal initform ''0))
[all …]
|
| H A D | ctor.lisp | 974 (loop for (key initform initfn) in default-initargs and i from 0
976 do (let* ((kind (if (constantp initform) 'constant 'var))
977 (init (if (eq kind 'var) initfn initform)))
981 (push initform defaulting-initargs))
1000 as initform = (slot-definition-initform slotd) do
1004 (if (constantp initform)
1005 (instance-init location 'initform initform type slotd)
1041 (initform
|
| /dports/math/fricas/fricas-1.3.7/src/aldor/ |
| H A D | gendepap.lsp | 36 (defun type-name (initform)
37 (cadr (cadr initform)))
160 (dolist (initform *initforms*)
161 (format bstr "init_~a~%" (|abbreviate| (type-name initform))))))
165 (dolist (initform *initforms*)
166 (let* ((abbrev (|abbreviate| (type-name initform)))
169 (prin1 initform apstream)))))
173 (dolist (initform *initforms*)
174 (let ((abbrev (|abbreviate| (type-name initform))))
175 (print-dependencies initform (format nil "init_~a" abbrev)))))
|
| /dports/lang/abcl/abcl-src-1.8.0/src/org/armedbear/lisp/ |
| H A D | defstruct.lisp | 99 initform
107 (dsd-initform dsd) initform
139 (initform (dsd-initform slot)))
142 (push (list (list (keywordify name) dummy) initform) keys)
144 (push initform values))))
303 (initform (dsd-initform dsd)))
305 (equal initform (list 'quote *dd-name*)))
622 (initform (if (atom slot) nil (cadr slot)))
626 :initform initform
662 (initform (if (atom slot) nil (cadr slot)))
[all …]
|
| H A D | compiler-pass1.lisp | 225 (initform (var-info) (cadr var-info))
246 (push `(,(var var-info) ,(initform var-info)) bindings)
273 :collect `(,(var var-info) ,(initform var-info))))))
279 (initform (var-info) (cadr var-info))
329 (push `(,(var var-info) ,(initform var-info)) defaults)
903 initform initform-supplied-p
906 initform initform-supplied-p
926 (name keyword initform initform-supplied-p
938 (list var-form initform))
940 (list var-form initform
[all …]
|
| H A D | ArgumentListProcessor.java | 1055 InitForm initform; field in ArgumentListProcessor.AuxParam
1060 initform = createInitForm(form); in AuxParam()
1070 array[index++] = initform.getValue(ext, thread); in assign()
1080 return initform.needsEnvironment(); in needsEnvironment()
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/emacs-lisp/ |
| H A D | cl-preloaded.el | 99 (lambda (name &optional initform type props)
101 name initform type props)))
253 (name &optional initform type props))
258 initform
|
| H A D | eieio.el | 760 (initform (cl--slot-descriptor-initform slot)))
768 (macroexp-const-p initform))
772 (eieio-oset this slot-name (eval initform t))))))
|
| /dports/editors/emacs/emacs-27.2/lisp/emacs-lisp/ |
| H A D | cl-preloaded.el | 99 (lambda (name &optional initform type props)
101 name initform type props)))
252 (name &optional initform type props))
257 initform
|
| H A D | eieio.el | 762 (initform (cl--slot-descriptor-initform slot))
763 (dflt (eieio-default-eval-maybe initform)))
764 (when (not (eq dflt initform))
|
| /dports/databases/pgloader3/cl-markdown-20191227-git/dev/ |
| H A D | docs.lisp | 321 (bind ((((key name) initform) argument)
324 (display-arguments (list (list new-name initform))
327 (bind (((name initform) argument)
330 (cond ((null initform)
333 ((constantp initform)
336 name initform))
|
| /dports/databases/pgloader3/chipz-20190202-git/ |
| H A D | chipz.asd | 7 (defclass txt-file (doc-file) ((type :initform "txt")))
8 (defclass css-file (doc-file) ((type :initform "css")))
|
| /dports/lang/sbcl/sbcl-1.3.13/doc/manual/ |
| H A D | gray-streams-examples.texinfo | 69 ((char-count :initform 1 :accessor char-count-of)
70 (line-count :initform 1 :accessor line-count-of)
71 (col-count :initform 1 :accessor col-count-of)
72 (prev-col-count :initform 1 :accessor prev-col-count-of)))
173 ((col-index :initform 0 :accessor col-index-of)))
|
| /dports/devel/cl-asdf/asdf-a58828745a610c1af841a86587ba197707c89eb3/test/ |
| H A D | test-source-file-type-2.asd | 3 ((type :initform "cl")))
|
| H A D | asdf-pathname-test.script | 63 ((system-count :initform 0)
64 (directory-count :initform 0)
65 (file-count :initform 0)
66 (system-failures :initform 0)
67 (directory-failures :initform 0)
68 (file-failures :initform 0)
69 (all-tests :initform ())))
|
| /dports/databases/pgloader3/cxml-20200610-git/ |
| H A D | XMLS-SYMBOLS.diff | 28 ((element-stack :initform nil :accessor element-stack)
29 (root :initform nil :accessor root)))
|
| /dports/editors/emacs/emacs-27.2/test/lisp/emacs-lisp/eieio-tests/ |
| H A D | eieio-tests.el | 718 ((initform :initform init)
733 ((initform :initform no-init)
765 (should (eq (oref obj initform) 'no-init))))
768 ((initform :allocation :class
788 ((initform :initform no-init)
814 (should (eq (oref-default 'slotattr-class-ok initform) 'no-init)))
|
| /dports/editors/emacs-devel/emacs-4d1968b/test/lisp/emacs-lisp/eieio-tests/ |
| H A D | eieio-tests.el | 783 ((initform :initform 'init)
798 ((initform :initform 'no-init)
830 (should (eq (oref obj initform) 'no-init))))
834 ((initform :allocation :class
854 ((initform :initform 'no-init)
880 (should (eq (oref-default 'slotattr-class-ok initform) 'no-init)))
|
| /dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/tests/ |
| H A D | mop.tst | 68 ((counter :initform 0)))
82 ((x :initform 0.0 :initarg x) (y :initform 0.0 :initarg y)))
84 ((counter :initform 0)))
136 ((slot4 :initform -44)
138 (slot6 :initform t)
140 (slot8 :initform 88))
184 (slot2 :initform t)
186 (slot4 :initform 44))
194 ((slot8 :initform -88)
196 (slot10 :initform t)
[all …]
|
| H A D | clos.tst | 303 ((x :initform 0 :accessor x-val :initarg :x)
603 (defparameter *initform-executed-counter* 0)
608 *initform-executed-counter* 1
611 *initform-executed-counter*)
690 (x :initform 0 :initarg :x)
691 (y :initform 0 :initarg :y)))
694 (rho :initform 0)
695 (theta :initform 0)))
823 ((x :initform 0 :accessor position-x)
824 (y :initform 0 :accessor position-y)))
[all …]
|
| /dports/math/reduce/Reduce-svn5758-src/psl/dist/util/ |
| H A D | defobject.sl | 318 (prog (initform optlist slotname it lhsslotname
323 (setq initform '*unbound*) % Need to distinguish NIL initializer.
342 (setq initform (second slotspec))
403 (return (cond ((eq initform '*unbound*) slotname)
404 (t (list slotname initform))))))
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/ |
| H A D | ctype.lisp | 348 (let ((initform (if (typep lambda-list-element '(cons t cons))
353 (when (if (sb!xc:constantp initform)
354 (not (sb!xc:typep (constant-form-value initform)
359 (listp initform)
360 (let ((f (car initform)))
|