Home
last modified time | relevance | path

Searched refs:SETF (Results 1 – 25 of 1342) sorted by relevance

12345678910>>...54

/dports/emulators/dps8m/dps8m-572f79bb4f0f84a8b16c3892c894c2b9ed64b458/src/dps8/
H A Ddps8_utils.c247 SETF (* flags, I_NEG); in Add36b()
333 SETF (* flags, I_NEG); in Sub36b()
808 SETF(*flags, I_OFLOW); in compl36()
811 SETF(*flags, I_NEG); in compl36()
816 SETF(*flags, I_ZERO); in compl36()
841 SETF(*flags, I_OFLOW); in compl18()
843 SETF(*flags, I_NEG); in compl18()
848 SETF(*flags, I_ZERO); in compl18()
1102 SETF(*flags, I_CARRY); in cmp36wl()
1108 SETF(*flags, I_NEG); in cmp36wl()
[all …]
H A Ddps8_hw_consts.h595 # define SET_I_ABS SETF (cpu.cu.IR, I_ABS)
596 # define SET_I_NBAR SETF (cpu.cu.IR, I_NBAR)
597 # define SET_I_TRUNC SETF (cpu.cu.IR, I_TRUNC)
598 # define SET_I_TALLY SETF (cpu.cu.IR, I_TALLY)
599 # define SET_I_EOFL SETF (cpu.cu.IR, I_EOFL)
600 # define SET_I_EUFL SETF (cpu.cu.IR, I_EUFL)
601 # define SET_I_OFLOW SETF (cpu.cu.IR, I_OFLOW)
602 # define SET_I_CARRY SETF (cpu.cu.IR, I_CARRY)
603 # define SET_I_NEG SETF (cpu.cu.IR, I_NEG)
604 # define SET_I_ZERO SETF (cpu.cu.IR, I_ZERO)
/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/tests/
H A Dsetf.tst21 (SETF (NTH 1 LI1) (QUOTE UU))
27 (SETF (ELT LI1 1) (QUOTE OO))
30 (SETF (ELT VEC1 1) (QUOTE OO))
45 (SETF (FIRST LI1) (QUOTE AA))
51 (SETF (SECOND LI1) (QUOTE BB))
57 (SETF (THIRD LI1) (QUOTE BB))
67 (SETF (SECOND LI1) 22)
73 (SETF (THIRD LI1) (QUOTE 33))
79 (SETF (FIFTH LI1) (QUOTE 55))
112 (SETF (CAAR LI1) (QUOTE OO))
[all …]
H A Dlambda.tst287 ((LAMBDA (V A) (DECLARE (SYSTEM::IN-DEFUN (SETF FOO)))
288 (BLOCK FOO (SETF (CAR A) V)))
290 (SETF FOO))
294 (NIL T (SETF FOO))
296 (NIL NIL (SETF FOO))
298 ((LAMBDA (X) (DECLARE (LAMBDA-NAME (SETF FOO)))
299 (BLOCK FOO (SETF (CAR A) V))) NIL (SETF FOO))
307 ((LAMBDA (V A) (SETF (CAR A) V)) T (SETF FOO))
311 (NIL T (SETF FOO))
313 (NIL NIL (SETF FOO))
[all …]
H A Dhash.tst103 (SETF (GETHASH (QUOTE HALLO) TAB) (QUOTE WIEGWHTS))
106 (SETF (GETHASH (QUOTE UHU) TAB) (QUOTE KAUZ))
130 (SETF (GETHASH (QUOTE UHU) TAB) (QUOTE KAUS))
151 (SETF (GETHASH (QUOTE UHU) TAB) (QUOTE KAUS))
160 (SETF (GETHASH (QUOTE UHU) TAB) (QUOTE KAUZ))
163 (SETF (GETHASH TAB) NIL)
199 (SETF (GETHASH (QUOTE KLAK) TAB) (QUOTE KLASE))
202 (SETF (GETHASH (QUOTE KUNZE) TAB) (QUOTE RIESE))
214 (SETF (GETHASH (QUOTE WALD) TAB) (QUOTE KHJGSFGJHDF))
H A Dalltest.tst387 (SETF (NTH 1 LI1) (QUOTE UU))
393 (SETF (ELT LI1 1) (QUOTE OO))
411 (SETF (FIRST LI1) (QUOTE AA))
426 (SETF (SECOND LI1) 22)
432 (SETF (THIRD LI1) (QUOTE 33))
438 (SETF (FIFTH LI1) (QUOTE 55))
441 (SETF (SIXTH LI1) (QUOTE 66))
450 (SETF (NINTH LI1) (QUOTE 99))
471 (SETF (CAAR LI1) (QUOTE OO))
477 (SETF (CAR LI1) (QUOTE II))
[all …]
/dports/math/reduce/Reduce-svn5758-src/psl/dist/util/
H A Dset2-macros.sl4 % Description: SETF macro.
59 % Added IGETV to SETF-SAFE list
77 `(let ((***PNTH-SETF-VAR*** ,n))
78 (if (onep ***PNTH-SETF-VAR***)
104 `(let ((***LIST-SETF-VAR*** ,rhs))
106 ***LIST-SETF-VAR***)))
114 `(let ((***CONS-SETF-VAR*** ,rhs))
115 (setf ,(cadr lhs) (car ***CONS-SETF-VAR***))
117 ***CONS-SETF-VAR***)))
126 % `(let ((***VECTOR-SETF-VAR*** ,rhs)) ,.L ,x)))))
[all …]
H A Dset1-macros.sl4 % Description: First part of SETF macro.
55 % Added IGETV to SETF-SAFE list
93 `(let ((***SETF-VAR*** ,rhs))
94 ,(expand-setf lhs '***SETF-VAR***)
95 ***SETF-VAR***))
/dports/lang/sbcl/sbcl-1.3.13/tests/
H A Dinfo.before-xc.lisp83 ((SETF ,s) (6 . "SETF-info#6"))
88 ((SETF ,s) (6 . "SETF-info#6"))
95 ((SETF ,s) (6 . "SETF-info#6"))
101 ((SETF ,s) (6 . "SETF-info#6"))
108 ((SETF ,s) (,+fdefn-info-num+ . "SETF-fdefn") (6 . "SETF-info#6"))
117 ((SETF ,s) (6 . "SETF-info#6"))
127 (verify `(((SETF ,s) (,+fdefn-info-num+ . "fdefn"))
/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/src/
H A Danalyse-funtab.lisp124 …SETF STANDARD-INSTANCE-ACCESS)| ((SETF CLOS::METHOD-COMBINATION-OPTIONS) (SETF CLOS::STD-GF-INITI…
129 …11 SYSTEM::|(SETF PACKAGE-LOCK)| (SYSTEM::C-WITHOUT-PACKAGE-LOCK SYSTEM::C-WITHOUT-PACKAGE-LOCK …
141 …:PRINT-OBJECT-<STANDARD-METHOD>-1 CLOS::PRINT-OBJECT-<STANDARD-METHOD>-1 (SETF CLOS::CLASS-VALID-I…
142 …5 SYSTEM::CHECK-FUNCTION-NAME ((SETF COMPILER-MACRO-FUNCTION) COMPILER-MACRO-FUNCTION COMPILE SY…
151 …L-CLASS-P (CLOS::CLASS-CLASSNAME (SETF CLOS::CLASS-DIRECT-SUBCLASSES-TABLE) CLOS::CLASS-DIRECT-SU…
191 2 SYSTEM::|(SETF WEAK-LIST-LIST)| (CLOS::REMOVE-FROM-WEAK-SET CLOS::ADD-TO-WEAK-SET)
235 1 SYSTEM::|(SETF CLOSURE-NAME)| (SYSTEM::MAKE-PRELIMINARY)
259 …11 SYSTEM::|(SETF PACKAGE-LOCK)| (SYSTEM::C-WITHOUT-PACKAGE-LOCK SYSTEM::C-WITHOUT-PACKAGE-LOCK …
274 …L-CLASS-P (CLOS::CLASS-CLASSNAME (SETF CLOS::CLASS-DIRECT-SUBCLASSES-TABLE) CLOS::CLASS-DIRECT-SU…
313 2 SYSTEM::|(SETF WEAK-LIST-LIST)| (CLOS::REMOVE-FROM-WEAK-SET CLOS::ADD-TO-WEAK-SET)
[all …]
H A Dplaces.lisp408 (SYSTEM::%SET-DOCUMENTATION ',accessfn 'SETF
485 (def-setf-alias package-lock SYSTEM::|(SETF PACKAGE-LOCK)|)
486 (def-setf-alias hash-table-weak-p SYSTEM::|(SETF HASH-TABLE-WEAK-P)|)
488 (def-setf-alias weak-pointer-value SYSTEM::|(SETF WEAK-POINTER-VALUE)|)
489 (def-setf-alias weak-list-list SYSTEM::|(SETF WEAK-LIST-LIST)|)
490 (def-setf-alias weak-mapping-value SYSTEM::|(SETF WEAK-MAPPING-VALUE)|)
494 (def-setf-alias weak-alist-value SYSTEM::|(SETF WEAK-ALIST-VALUE)|)
509 (def-setf-alias elt SYSTEM::|(SETF ELT)|)
935 (SETF (SYMBOL-FUNCTION ,symbol) (SYSTEM::MAKE-MACRO ,value 0))
1137 (def-setf-alias long-float-digits SYSTEM::|(SETF LONG-FLOAT-DIGITS)|)
[all …]
/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/sacla-tests/
H A Dshould-sequence.lisp71 (HANDLER-CASE (PROGN (SETF (ELT 'NOT-A-SEQ 0) 0))
75 (HANDLER-CASE (PROGN (SETF (ELT #\a 0) 0))
79 (HANDLER-CASE (PROGN (SETF (ELT '(0 1 . 2) 2) 0))
123 (HANDLER-CASE (PROGN (SETF (ELT (COPY-SEQ "012") -1) #\a))
127 (HANDLER-CASE (PROGN (SETF (ELT (COPY-SEQ "012") 'INDEX) #\a))
131 (HANDLER-CASE (PROGN (SETF (ELT (COPY-SEQ "012") "xyz") #\a))
135 (HANDLER-CASE (PROGN (SETF (ELT (COPY-SEQ "012") 100) #\a))
139 (HANDLER-CASE (PROGN (SETF (ELT (LIST 0 1 2) 100) 0))
143 (HANDLER-CASE (PROGN (SETF (ELT (LIST 0 1 2) -1) 0))
205 (HANDLER-CASE (PROGN (SETF (SUBSEQ (LIST 0 1 2 3) 1) 'NOT-A-SEQ))
[all …]
/dports/math/fricas/fricas-1.3.7/src/boot/compiled/
H A Dtyprops.clisp139 ; repeat SETF (GET(i,'SHOEPRE),'T)
149 ('T (SETF (GET |i| 'SHOEPRE) 'T)))
170 ; repeat SETF (GET(CAR i,'SHOEINF),CADR i)
180 ('T (SETF (GET (CAR |i|) 'SHOEINF) (CADR |i|))))
211 ; repeat SETF (GET(CAR i,'SHOETHETA),CDR i)
221 ('T (SETF (GET (CAR |i|) 'SHOETHETA) (CDR |i|))))
286 ; repeat SETF (GET(CAR i,'SHOERENAME),CDR i)
296 ('T (SETF (GET (CAR |i|) 'SHOERENAME) (CDR |i|))))
358 ; repeat SETF (GET(CAR i,'SHOESELFUNCTION),CADR i)
368 ('T (SETF (GET (CAR |i|) 'SHOESELFUNCTION) (CADR |i|))))
/dports/emulators/simh/simh-3.9.0_5/PDP10/
H A Dpdp10_mdfp.c170 SETF (F_AOV | F_T1); /* -2**35 squared */ in imul()
176 SETF (F_AOV | F_T1); /* overflow */ in imul()
192 SETF (F_DCK | F_AOV | F_T1); /* set flags, return */ in idiv()
235 SETF (F_AOV | F_T1); /* overflow */ in mul()
334 SETF (F_AOV | F_T1); in dmul()
367 SETF (F_AOV | F_DCK | F_T1); /* no, set flags */ in ddiv()
493 SETF (F_AOV | F_DCK | F_FOV | F_T1); in fdv()
556 SETF (F_AOV | F_T1); in fix()
687 SETF (F_AOV | F_DCK | F_FOV | F_T1); in dfdv()
794 SETF (F_AOV | F_FOV | F_FXU | F_T1); in fpack()
[all …]
H A Dpdp10_cpu.c1525 SETF (F_C0 | F_C1); in add()
1535 SETF (F_C0 | F_C1); in add()
1548 SETF (F_C0 | F_C1); in sub()
1558 SETF (F_C0 | F_C1); in sub()
1602 SETF (F_C0 | F_C1); in dadd()
1610 SETF (F_C0 | F_C1); in dadd()
1627 SETF (F_C0 | F_C1); in dsub()
1635 SETF (F_C0 | F_C1); in dsub()
1714 SETF (F_AOV | F_T1); in ash()
1748 SETF (F_AOV | F_T1); in ashc()
[all …]
/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/modules/clx/mit-clx/
H A Ddoc.lisp3527 ConfigureWindow (SETF (DRAWABLE-X DRAWABLE) INTEGER)
3528 ConfigureWindow (SETF (DRAWABLE-Y DRAWABLE) INTEGER)
3529 SetFontPath (SETF (FONT-PATH FONT) PATHS)
3536 SetClipRectangles (SETF (GCONTEXT-CLIP-X GC) INT16)
3537 SetClipRectangles (SETF (GCONTEXT-CLIP-Y GC) INT16)
3550 ChangeGC (SETF (GCONTEXT-STIPPLE GC) PIXMAP)
3552 ChangeGC (SETF (GCONTEXT-TILE GC) PIXMAP)
3553 ChangeGC (SETF (GCONTEXT-TS-X GC) INT16)
3554 ChangeGC (SETF (GCONTEXT-TS-Y GC) INT16)
3560 ChangeWindowAttributes (SETF (WINDOW-BORDER WINDOW) VALUE)
[all …]
/dports/audio/audacity/audacity-Audacity-3.1.3/nyquist/
H A Dsndfnint.lsp1 (SETF MAX-STOP-TIME 10E20)
3 (SETF MIN-START-TIME -10E20)
/dports/audio/audacity/audacity-Audacity-3.1.3/lib-src/libnyquist/nyquist/nyqsrc/
H A Dsndfnint.lsp1 (SETF MAX-STOP-TIME 10E20)
3 (SETF MIN-START-TIME -10E20)
/dports/math/fricas/fricas-1.3.7/src/boot/
H A Dtyprops.boot122 repeat SETF (GET(i,'SHOEPRE),'T)
141 repeat SETF (GET(CAR i,'SHOEINF),CADR i)
167 repeat SETF (GET(CAR i,'SHOETHETA),CDR i)
223 repeat SETF (GET(CAR i,'SHOERENAME),CDR i)
263 repeat SETF (GET(CAR i,'SHOESELFUNCTION),CADR i)
/dports/math/fricas/fricas-1.3.7/src/interp/
H A Dsfsfun.boot387 SETF(AREF(a,0),0.0)
388 SETF(AREF(a,1),1.0)
390 SETF(AREF(a,i),0.0)
404 SETF(AREF(a,k), t1+t2)
493 SETF(AREF(arr,ncount) ,_
499 SETF(AREF(arr,0),AREF(arr,0)/2.0)
546 SETF(AREF(arr,ncount) ,_
552 SETF(AREF(arr,0),AREF(arr,0)/2.0)
718 SETF(AREF(w,m2), zero) --- start off
725 SETF(AREF(w,m1), start)
[all …]
/dports/databases/pgloader3/cxml-20200610-git/
H A Dmlisp-patch.diff45 < (SETF RUNE (RUNE-CODE RUNE))
51 < (SETF RUNE (RUNE-CODE RUNE))
/dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/openblas/xianyi-OpenBLAS-e6e87a2/
H A Dcommon_ia64.h268 #define SETF setf.d macro
295 #define SETF setf.d macro
332 #define SETF setf.s macro
/dports/cad/meshlab/meshlab-Meshlab-2020.05/src/plugins_unsupported/external/GotoBLAS2/
H A Dcommon_ia64.h251 #define SETF setf.d macro
278 #define SETF setf.d macro
315 #define SETF setf.s macro
/dports/math/openblas/OpenBLAS-0.3.18/
H A Dcommon_ia64.h273 #define SETF setf.d macro
300 #define SETF setf.d macro
337 #define SETF setf.s macro
/dports/math/gotoblas/GotoBLAS2/
H A Dcommon_ia64.h268 #define SETF setf.d macro
295 #define SETF setf.d macro
332 #define SETF setf.s macro

12345678910>>...54