| /dports/lang/sbcl/sbcl-1.3.13/tests/ |
| H A D | compiler.test.sh | 24 (defun foo (x) (list x))
41 (defun foo (x) (list x))
51 (flet ((baz (y) (load y)))
55 (flet ((baz (y) (load y)))
147 (1+ (list x)))
180 ((buffer-state :initform (make-buffer-state))))
302 (defvar *string* (make-string 10 :element-type 'base-char))
382 (defmethod make-load-form ((foo foox) &optional env)
466 (defun slot-name-incf (s)
467 (with-slots (no-such-slot) s
[all …]
|
| /dports/editors/xvile/vile-9.8v/filters/ |
| H A D | lisp.key | 398 load
433 make-list
434 make-load-form-saving-slots
627 slot-boundp
628 slot-exists-p
629 slot-makunbound
630 slot-value
635 special-form-p
748 make-load-form
756 slot-missing
[all …]
|
| /dports/editors/vile/vile-9.8v/filters/ |
| H A D | lisp.key | 398 load
433 make-list
434 make-load-form-saving-slots
627 slot-boundp
628 slot-exists-p
629 slot-makunbound
630 slot-value
635 special-form-p
748 make-load-form
756 slot-missing
[all …]
|
| /dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/tests/ |
| H A D | symbols.tst | 29 *load-pathname* // *load-print* /// *load-truename* /=
111 intersection list invalid-method-error list* invoke-debugger
112 list-all-packages invoke-restart list-length
114 keywordp load-logical-pathname-translations labels
115 load-time-value lambda locally lambda-list-keywords log
141 make-instances-obsolete mismatch make-list mod make-load-form
142 most-negative-double-float make-load-form-saving-slots
158 package-use-list notevery package-used-by-list notinline
195 set-macro-character slot-boundp set-pprint-dispatch
196 slot-exists-p set-syntax-from-char slot-makunbound setf
[all …]
|
| H A D | clos.tst | 485 ;; make-load-form
487 (lisp-file "clos-tst-make-load-form-demo.lisp"))
502 (let ((m (find-method #'make-load-form nil (list (find-class type)) nil)))
503 (when m (remove-method #'make-load-form m)))
511 (defmethod make-load-form ((obj test-class1) &optional environment)
514 (defmethod make-load-form ((obj test-class2) &optional environment)
530 (defmethod make-load-form ((x foo) &optional env)
531 (make-load-form-saving-slots x :environment env))
563 (defmethod make-load-form ((self pos) &optional environment)
576 (defmethod make-load-form ((x tree-with-parent) &optional environment)
[all …]
|
| H A D | mop.tst | 721 (macrolet ((eval-succeeds (form)
756 (macrolet ((eval-succeeds (form)
1305 (list (slot-value (make-instance 'testclass14) 'slot)
1392 (RESTART-CASE ,form
1529 (list (make-instance 'clos:standard-effective-slot-definition
1554 (list (make-instance 'clos:standard-effective-slot-definition
1783 (macrolet ((succeeds (form)
1829 (macrolet ((succeeds (form)
2867 (macrolet ((succeeds (form)
3044 (load (merge-pathnames "mop-aux.lisp" *run-test-truename*))
[all …]
|
| H A D | excepsit.tst | 533 (fill (make-list 3) 'x :start -1)
666 (load "./128347234.lsp")
669 (load "*.lsp")
710 (make-list -1)
715 (make-load-form (make-foo43)))
1030 ;; recursive-p=T on top-level form
1081 (slot-boundp (make-instance 'foo55) ':a))
1086 (slot-makunbound (make-instance 'foo56) ':a))
1093 unbound-slot
1097 (slot-value (make-instance 'foo57) ':a))
[all …]
|
| /dports/math/reduce/Reduce-svn5758-src/psl/dist/util/ |
| H A D | defobject.sl | 18 % * Redistributions in binary form must reproduce the above copyright
47 (bothtimes (load objects))
49 (bothtimes (load c-template))
235 (setq defaultaccess (list ':private)))) % No slot access provided.
277 % Collect the slot access list.
339 (t % Yes, no init-form.
341 % Init-form after keyword.
376 % Kluge alert: !&NonCreateArgs contains a list of slot names to ignore.
454 % of "slot-name(value-form)" lists to override the default-inits.
456 (defmacro make (structname . slotspecs)
[all …]
|
| H A D | nstruct.sl | 1 (compiletime (load clcomp strings))
90 ; (load '|alan;lspenv init|))
126 (load nstruct))
128 ; (load '|alan;struct boot|))
350 ;; <slots> is of the form (<slot> (<slot> <initial-value>) ...)
374 ;; DEFSTRUCT-SLOT each accesor has one, it is of the form: (<name> . <slot>)
552 (list (cons (append-symbols 'make- name)
706 ; (cons it (make-defstruct-slot-description
882 (setq dsc (list* number nil (make-empty) 0 0 nil))
1034 (setq dsc (list number nil (make-empty) 0 0))
[all …]
|
| H A D | psl_case_cray.sl | 15 % * Redistributions in binary form must reproduce the above copyright
46 (errorset '(load fast-integers) nil nil)
47 (errorset '(load fast-int) nil nil)
48 (errorset '(load inum) nil nil)))
50 (compiletime (load hash-decls sys-consts))
109 (let ((slot (hash-into-table name)))
110 (when (occupied-slot? slot)
111 (setf (hash-table-entry slot) deleted-slot-value)
166 (setq comcond-t* (list 'quote (int2id 84)))
169 % set !t back to T in last clause to make
[all …]
|
| H A D | psl_case.sl | 15 % * Redistributions in binary form must reproduce the above copyright
46 (errorset '(load fast-integers) nil nil)
47 (errorset '(load fast-int) nil nil)
48 (errorset '(load inum) nil nil)))
50 (compiletime (load hash-decls sys-consts))
109 (let ((slot (hash-into-table name)))
110 (when (occupied-slot? slot)
111 (setf (hash-table-entry slot) deleted-slot-value)
167 (setq comcond-t* (list 'quote (int2id 84)))
170 % set !t back to T in last clause to make
[all …]
|
| /dports/lang/guile1/guile-1.8.8/doc/goops/ |
| H A D | goops-tutorial.texi | 216 slots of the newly created instance. For instance, the following form
218 @findex make
247 First load the module @code{(oop goops describe)}:
280 default value is obtained by evaluating the form given after the
298 the @code{make} optional parameter list). Specifying such a keyword
300 initialization possibly given with @code{#:init-form}.
374 default. Value of a slot can also be specified by calling @code{make}
391 slot. Writing a slot is done with an extended form of @code{set!}
409 can be done using the extended form of @code{set!}.
508 (define make-polar
[all …]
|
| H A D | goops.texi | 154 to load GOOPS. (If your system supports dynamic loading, you
441 (make <class> #:supers (list <object>) #:slots slots))
465 (make <my-metaclass> #:supers (list <object>) #:slots slots))
832 @deffnx {slot option} #:init-form init-form
840 slot value. @var{init-form} is an unevaluated expression that gets
874 (hashtab #:init-form (make-hash-table)))
970 here is a list of slot definitions.
1098 definitions from the @code{define-class} form, plus the slot definitions
2308 @deffn procedure slot-definition-init-form slot-def
2309 Extract and return the slot init-form option from @var{slot-def}. This
[all …]
|
| /dports/editors/neovim/neovim-0.6.1/runtime/syntax/ |
| H A D | lisp.vim | 205 syn keyword lispFunc char/= load simple-vector
216 syn keyword lispFunc char-font logical-pathname slot-boundp
219 syn keyword lispFunc char-hyper-bit lognand slot-missing
220 syn keyword lispFunc char-int lognor slot-unbound
221 syn keyword lispFunc char-lessp lognot slot-value
228 syn keyword lispFunc char-upcase long-float-negative-epsilon special-form-p
252 syn keyword lispFunc complexp make-list string<=
253 syn keyword lispFunc compute-applicable-methods make-load-form string=
254 syn keyword lispFunc compute-restarts make-load-form-saving-slots string>
418 syn match lispFunc "\<\(ext:\)\?expand-form\>"
[all …]
|
| /dports/editors/vim/vim-8.2.3745/runtime/syntax/ |
| H A D | lisp.vim | 205 syn keyword lispFunc char/= load simple-vector
216 syn keyword lispFunc char-font logical-pathname slot-boundp
219 syn keyword lispFunc char-hyper-bit lognand slot-missing
220 syn keyword lispFunc char-int lognor slot-unbound
221 syn keyword lispFunc char-lessp lognot slot-value
228 syn keyword lispFunc char-upcase long-float-negative-epsilon special-form-p
252 syn keyword lispFunc complexp make-list string<=
253 syn keyword lispFunc compute-applicable-methods make-load-form string=
254 syn keyword lispFunc compute-restarts make-load-form-saving-slots string>
418 syn match lispFunc "\<\(ext:\)\?expand-form\>"
[all …]
|
| /dports/www/grafana8/grafana-8.3.6/vendor/github.com/apache/thrift/lib/cl/ |
| H A D | README.md | 77 it is possible to use those bundles to load the library, too.
81 (asdf:load-system :thrift)
83 This will compile and load the Lisp compiler for Thrift definition files, the
93 * load the Lisp service interfaces
196 (macrolet ((show (form)
198 ',form
199 (multiple-value-list (ignore-errors ,form)))))
205 (let ((task (make-instance 'tutorial:work
223 initform for the slot and the encoding operator skips an unbound slot. This leave some ambiguity
228 whatever the implementation prescribes. decoders apply make-struct to an initargs list.
[all …]
|
| /dports/net/storj/storj-1.45.3/vendor/github.com/apache/thrift/lib/cl/ |
| H A D | README.md | 77 it is possible to use those bundles to load the library, too.
81 (asdf:load-system :thrift)
83 This will compile and load the Lisp compiler for Thrift definition files, the
93 * load the Lisp service interfaces
196 (macrolet ((show (form)
198 ',form
199 (multiple-value-list (ignore-errors ,form)))))
205 (let ((task (make-instance 'tutorial:work
223 initform for the slot and the encoding operator skips an unbound slot. This leave some ambiguity
228 whatever the implementation prescribes. decoders apply make-struct to an initargs list.
[all …]
|
| /dports/www/fabio/fabio-1.5.14/vendor/github.com/apache/thrift/thrift-da1169d75b15/lib/cl/ |
| H A D | README.md | 77 it is possible to use those bundles to load the library, too.
81 (asdf:load-system :thrift)
83 This will compile and load the Lisp compiler for Thrift definition files, the
93 * load the Lisp service interfaces
196 (macrolet ((show (form)
198 ',form
199 (multiple-value-list (ignore-errors ,form)))))
205 (let ((task (make-instance 'tutorial:work
223 initform for the slot and the encoding operator skips an unbound slot. This leave some ambiguity
228 whatever the implementation prescribes. decoders apply make-struct to an initargs list.
[all …]
|
| /dports/devel/thrift-cpp/thrift-0.14.0/lib/cl/ |
| H A D | README.md | 77 it is possible to use those bundles to load the library, too.
81 (asdf:load-system :thrift)
83 This will compile and load the Lisp compiler for Thrift definition files, the
93 * load the Lisp service interfaces
196 (macrolet ((show (form)
198 ',form
199 (multiple-value-list (ignore-errors ,form)))))
205 (let ((task (make-instance 'tutorial:work
223 initform for the slot and the encoding operator skips an unbound slot. This leave some ambiguity
228 whatever the implementation prescribes. decoders apply make-struct to an initargs list.
[all …]
|
| /dports/devel/thrift-c_glib/thrift-0.14.0/lib/cl/ |
| H A D | README.md | 77 it is possible to use those bundles to load the library, too.
81 (asdf:load-system :thrift)
83 This will compile and load the Lisp compiler for Thrift definition files, the
93 * load the Lisp service interfaces
196 (macrolet ((show (form)
198 ',form
199 (multiple-value-list (ignore-errors ,form)))))
205 (let ((task (make-instance 'tutorial:work
223 initform for the slot and the encoding operator skips an unbound slot. This leave some ambiguity
228 whatever the implementation prescribes. decoders apply make-struct to an initargs list.
[all …]
|
| /dports/devel/thrift/thrift-0.14.0/lib/cl/ |
| H A D | README.md | 77 it is possible to use those bundles to load the library, too.
81 (asdf:load-system :thrift)
83 This will compile and load the Lisp compiler for Thrift definition files, the
93 * load the Lisp service interfaces
196 (macrolet ((show (form)
198 ',form
199 (multiple-value-list (ignore-errors ,form)))))
205 (let ((task (make-instance 'tutorial:work
223 initform for the slot and the encoding operator skips an unbound slot. This leave some ambiguity
228 whatever the implementation prescribes. decoders apply make-struct to an initargs list.
[all …]
|
| /dports/misc/concourse/concourse-6.7.2/vendor/github.com/apache/thrift/lib/cl/ |
| H A D | README.md | 77 it is possible to use those bundles to load the library, too.
81 (asdf:load-system :thrift)
83 This will compile and load the Lisp compiler for Thrift definition files, the
93 * load the Lisp service interfaces
196 (macrolet ((show (form)
198 ',form
199 (multiple-value-list (ignore-errors ,form)))))
205 (let ((task (make-instance 'tutorial:work
223 initform for the slot and the encoding operator skips an unbound slot. This leave some ambiguity
228 whatever the implementation prescribes. decoders apply make-struct to an initargs list.
[all …]
|
| /dports/devel/node-thrift/thrift-0.14.0/lib/cl/ |
| H A D | README.md | 77 it is possible to use those bundles to load the library, too.
81 (asdf:load-system :thrift)
83 This will compile and load the Lisp compiler for Thrift definition files, the
93 * load the Lisp service interfaces
196 (macrolet ((show (form)
198 ',form
199 (multiple-value-list (ignore-errors ,form)))))
205 (let ((task (make-instance 'tutorial:work
223 initform for the slot and the encoding operator skips an unbound slot. This leave some ambiguity
228 whatever the implementation prescribes. decoders apply make-struct to an initargs list.
[all …]
|
| /dports/devel/py-thrift/thrift-0.14.0/lib/cl/ |
| H A D | README.md | 77 it is possible to use those bundles to load the library, too.
81 (asdf:load-system :thrift)
83 This will compile and load the Lisp compiler for Thrift definition files, the
93 * load the Lisp service interfaces
196 (macrolet ((show (form)
198 ',form
199 (multiple-value-list (ignore-errors ,form)))))
205 (let ((task (make-instance 'tutorial:work
223 initform for the slot and the encoding operator skips an unbound slot. This leave some ambiguity
228 whatever the implementation prescribes. decoders apply make-struct to an initargs list.
[all …]
|
| /dports/lang/guile/guile-3.0.7/doc/ref/ |
| H A D | guile.info-8 | 135 form
200 -- slot option: #:init-form init-form
214 initial value for the slot. The form is evaluated each time that
242 (hashtab #:init-form (make-hash-table)))
1261 -- procedure: slot-definition-init-form slot-def
1728 (make <class> #:dsupers (list <object>) #:slots slots))
1746 (make <my-metaclass> #:dsupers (list <object>) #:slots slots))
1972 note that for ‘make-class’, SLOTS is a separate list of slot
5615 ‘macroexpand’, to make it conform to the general form of compiler
5818 KW is a list of the form, ‘(ALLOW-OTHER-KEYS? (KEYWORD NAME VAR)
[all …]
|