Files with non-ascii characters converted to UTF-8, for basic testing
This commit is contained in:
rmkaplan
File diff suppressed because it is too large
Load Diff
Binary file not shown.
@@ -1,10 +1,10 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT UTF-8)
|
||||
|
||||
(FILECREATED "13-Oct-2025 13:44:47" {WMEDLEY}<library>virtualkeyboards>KEYBOARDCONFIGS.;5 59521
|
||||
(FILECREATED "19-Feb-2026 22:32:05" {WMEDLEY}<library>virtualkeyboards>KEYBOARDCONFIGS.;6 59604
|
||||
|
||||
:EDIT-BY rmk
|
||||
|
||||
:PREVIOUS-DATE "13-Oct-2025 12:03:23" {WMEDLEY}<library>virtualkeyboards>KEYBOARDCONFIGS.;4)
|
||||
:PREVIOUS-DATE "13-Oct-2025 13:44:47" {WMEDLEY}<library>virtualkeyboards>KEYBOARDCONFIGS.;5)
|
||||
|
||||
|
||||
(PRETTYCOMPRINT KEYBOARDCONFIGSCOMS)
|
||||
@@ -57,11 +57,11 @@
|
||||
(F3 (F3 ITALIC))
|
||||
(F4 (F4 UCASE))
|
||||
(F5 (F5 STRIKE))
|
||||
(F6 (F6 ""))
|
||||
(F6 (F6 "^"))
|
||||
(F7 (F7 SUBSCR))
|
||||
(F8 (F8 SMALL))
|
||||
(F9 (F9 MARGIN))
|
||||
(F10 (F10 "¬"))
|
||||
(F10 (F10 "_"))
|
||||
(F11 (F11 ""))
|
||||
(F12 (F12 ""))
|
||||
(LOCK ("CAPS" "LOCK"))
|
||||
@@ -115,7 +115,7 @@
|
||||
(THREE (|3| %# NLS))
|
||||
(FOUR (|4| $ NLS))
|
||||
(FIVE (|5| %% NLS))
|
||||
(SIX (|6| ^ NLS))
|
||||
(SIX (|6| ↑ NLS))
|
||||
(SEVEN (|7| & NLS))
|
||||
(EIGHT (|8| * NLS))
|
||||
(NINE (|9| %( NLS))))
|
||||
@@ -234,7 +234,7 @@
|
||||
NIL
|
||||
((%" (%' %" NLS))
|
||||
(+ (= + NLS))
|
||||
(- (- _ NLS))
|
||||
(- (- ← NLS))
|
||||
(%: (; %: NLS))
|
||||
(< (%, < NLS))
|
||||
(> (%. > NLS))
|
||||
@@ -255,13 +255,13 @@
|
||||
(NUMERIC/ (/ /))
|
||||
(NUMERIC0 (INS |0| NLS))
|
||||
(NUMERIC1 (END |1| NLS))
|
||||
(NUMERIC2 (¯ |2| NLS))
|
||||
(NUMERIC2 (↓ |2| NLS))
|
||||
(NUMERIC3 (PGDN |3| NLS))
|
||||
(NUMERIC4 (¬ |4| NLS))
|
||||
(NUMERIC4 (_ |4| NLS))
|
||||
(NUMERIC5 (|5| |5|))
|
||||
(NUMERIC6 (® |6| NLS))
|
||||
(NUMERIC6 (→ |6| NLS))
|
||||
(NUMERIC7 (HOME |7| NLS))
|
||||
(NUMERIC8 ( |8| NLS))
|
||||
(NUMERIC8 (^ |8| NLS))
|
||||
(NUMERIC9 (PGUP |9| NLS))
|
||||
(NUMERIC= (= =))
|
||||
(RETURN (CR CR))
|
||||
@@ -274,17 +274,17 @@
|
||||
(F3 (ITALIC NOTITALIC NLS))
|
||||
(F4 (UCASE LCASE NLS))
|
||||
(F5 (STRIKEOUT NOTSTRIKEOUT NLS))
|
||||
(F6 ("" "" NLS))
|
||||
(F6 ("^" "^" NLS))
|
||||
(F7 (SUBSCRIPT SUPERSCRIPT NLS))
|
||||
(F8 (SMALLER LARGER NLS))
|
||||
(F9 (MARGINS NOTMARGINS NLS))
|
||||
(F10 ("¬" "¬" NLS))
|
||||
(F10 ("_" "_" NLS))
|
||||
(F11 (F11 NOTF11 NLS))
|
||||
(F12 (F12 NOTF12 NLS)))
|
||||
((%` 45 B)
|
||||
(~ 45 T)
|
||||
(|6| 2 B)
|
||||
(^ 2 T)
|
||||
(↑ 2 T)
|
||||
(%% 0 T)
|
||||
(|5| 0 B)
|
||||
($ 1 T)
|
||||
@@ -523,7 +523,7 @@
|
||||
(> (346 46 29 33))
|
||||
(%: (362 82 29 33))
|
||||
(<-%| (426 82 63 33))
|
||||
(^ (450 118 29 33))
|
||||
(↑ (450 118 29 33))
|
||||
(DEL (498 154 29 33))
|
||||
(R (162 118 29 33))
|
||||
(T (194 118 29 33))
|
||||
@@ -556,7 +556,7 @@
|
||||
(LF (LF LF))
|
||||
(LOCK LOCKDOWN . LOCKUP)
|
||||
(\ (\ %| NLS))
|
||||
(^ (_ ^ NLS))
|
||||
(↑ (← ↑ NLS))
|
||||
({ (%[ { NLS))
|
||||
(} (%] } NLS)))
|
||||
((BLANK-MIDDLE 30)
|
||||
@@ -643,8 +643,8 @@
|
||||
(%: 43)
|
||||
(CR 44)
|
||||
(<-%| 44)
|
||||
(_ 45)
|
||||
(^ 45)
|
||||
(← 45)
|
||||
(↑ 45)
|
||||
(r 48)
|
||||
(R 48)
|
||||
(t 49)
|
||||
@@ -744,7 +744,7 @@
|
||||
NIL
|
||||
((%" (%' %" NLS))
|
||||
(+ (= + NLS))
|
||||
(- (- _ NLS))
|
||||
(- (- ← NLS))
|
||||
(ESC (ESC %| NLS))
|
||||
(%: (; %: NLS))
|
||||
(< (%, < NLS))
|
||||
@@ -757,7 +757,7 @@
|
||||
(~ (%` ~ NLS)))
|
||||
((%` 45)
|
||||
(~ 45)
|
||||
(^ 2)
|
||||
(↑ 2)
|
||||
(|6| 2)
|
||||
(w 18)
|
||||
(W 18)
|
||||
@@ -951,7 +951,7 @@
|
||||
NIL
|
||||
((%" (%' %" NLS))
|
||||
(+ (= + NLS))
|
||||
(- (- _ NLS))
|
||||
(- (- ← NLS))
|
||||
(%: (; %: NLS))
|
||||
(< (%, < NLS))
|
||||
(<-%| (CR CR))
|
||||
@@ -962,21 +962,21 @@
|
||||
(KEYBOARD METADOWN . METAUP)
|
||||
(LOCK LOCKDOWN . LOCKUP)
|
||||
(NEXT (2,22 2,62 NLS))
|
||||
(NUMERIC* (NUMLK ´ NLS))
|
||||
(NUMERIC* (NUMLK × NLS))
|
||||
(NUMERIC+ (HELP 2,45 NLS))
|
||||
(NUMERIC, (\ %, NLS))
|
||||
(NUMERIC- (SCRL - NLS))
|
||||
(NUMERIC. (%| 21 NLS))
|
||||
(NUMERIC/ (BREAK ¸ NLS))
|
||||
(NUMERIC/ (BREAK ÷ NLS))
|
||||
(NUMERIC0 (INS |0| NLS))
|
||||
(NUMERIC1 (END |1| NLS))
|
||||
(NUMERIC2 (¯ |2| NLS))
|
||||
(NUMERIC2 (↓ |2| NLS))
|
||||
(NUMERIC3 (PGDN |3| NLS))
|
||||
(NUMERIC4 (¬ |4| NLS))
|
||||
(NUMERIC4 (_ |4| NLS))
|
||||
(NUMERIC5 (% |5| NLS))
|
||||
(NUMERIC6 (® |6| NLS))
|
||||
(NUMERIC6 (→ |6| NLS))
|
||||
(NUMERIC7 (HOME |7| NLS))
|
||||
(NUMERIC8 ( |8| NLS))
|
||||
(NUMERIC8 (^ |8| NLS))
|
||||
(NUMERIC9 (PGUP |9| NLS))
|
||||
(%` (%` ~ NLS))
|
||||
({ (%[ { NLS))
|
||||
@@ -987,7 +987,7 @@
|
||||
(|4| 1)
|
||||
($ 1)
|
||||
(|6| 2)
|
||||
(^ 2)
|
||||
(↑ 2)
|
||||
(e 3)
|
||||
(E 3)
|
||||
(|7| 4)
|
||||
@@ -1233,7 +1233,7 @@
|
||||
(%. (%. > NLS))
|
||||
(/ (/ ? NLS))
|
||||
(\ (\ %| NLS))
|
||||
(- (- _ NLS))
|
||||
(- (- ← NLS))
|
||||
(%` (%` ~ NLS))
|
||||
(%[ (%[ { NLS))
|
||||
(%] (%] } NLS))
|
||||
@@ -1249,13 +1249,13 @@
|
||||
(NUMERIC/ (/ /))
|
||||
(NUMERIC0 (INS |0| NLS))
|
||||
(NUMERIC1 (END |1| NLS))
|
||||
(NUMERIC2 (¯ |2| NLS))
|
||||
(NUMERIC2 (↓ |2| NLS))
|
||||
(NUMERIC3 (PGDN |3| NLS))
|
||||
(NUMERIC4 (¬ |4| NLS))
|
||||
(NUMERIC4 (_ |4| NLS))
|
||||
(NUMERIC5 (|5| |5|))
|
||||
(NUMERIC6 (® |6| NLS))
|
||||
(NUMERIC6 (→ |6| NLS))
|
||||
(NUMERIC7 (HOME |7| NLS))
|
||||
(NUMERIC8 ( |8| NLS))
|
||||
(NUMERIC8 (^ |8| NLS))
|
||||
(NUMERIC9 (PGUP |9| NLS))
|
||||
(NUMERICENTER (CR CR))
|
||||
(RALT METADOWN . METAUP)
|
||||
@@ -1264,11 +1264,11 @@
|
||||
(F3 (ITALIC NOTITALIC NLS))
|
||||
(F4 (UCASE LCASE NLS))
|
||||
(F5 (STRIKEOUT NOTSTRIKEOUT NLS))
|
||||
(F6 ("" "" NLS))
|
||||
(F6 ("^" "^" NLS))
|
||||
(F7 (SUBSCRIPT SUPERSCRIPT NLS))
|
||||
(F8 (SMALLER LARGER NLS))
|
||||
(F9 (MARGINS NOTMARGINS NLS))
|
||||
(F10 ("¬" "¬" NLS))
|
||||
(F10 ("_" "_" NLS))
|
||||
(F11 (F11 NOTF11 NLS))
|
||||
(F12 (F12 NOTF12 NLS)))
|
||||
((%' 28 B)
|
||||
@@ -1276,7 +1276,7 @@
|
||||
(%, 27 B)
|
||||
(< 27 T)
|
||||
(- 10 B)
|
||||
(_ 10 T)
|
||||
(← 10 T)
|
||||
(> 42 T)
|
||||
(%. 42 B)
|
||||
(/ 12 B)
|
||||
@@ -1286,7 +1286,7 @@
|
||||
(%# 16 T)
|
||||
($ 1 T)
|
||||
(%% 0 T)
|
||||
(^ 4 T)
|
||||
(↑ 4 T)
|
||||
(* 53 T)
|
||||
(%( 22 T)
|
||||
(%) 8 T)
|
||||
@@ -1494,7 +1494,7 @@
|
||||
(M (370 42 29 29))
|
||||
(; (402 42 29 29))
|
||||
(%: (434 42 29 29))
|
||||
(_ (466 42 29 29))
|
||||
(← (466 42 29 29))
|
||||
(RSHIFT (498 42 53 29))
|
||||
(LINEFEED (554 42 29 29))
|
||||
(CONTROL (106 74 53 29))
|
||||
@@ -1559,7 +1559,7 @@
|
||||
(ONE (|1| + NLS))
|
||||
(TWO (|2| %" NLS))
|
||||
(THREE (|3| * NLS))
|
||||
(FOUR (|4| ‡ NLS))
|
||||
(FOUR (|4| NLS))
|
||||
(SIX (|6| & NLS))
|
||||
(SEVEN (|7| / NLS))
|
||||
(EIGHT (|8| %( NLS))
|
||||
@@ -1567,7 +1567,7 @@
|
||||
(%: (%. %: NLS))
|
||||
(; (%, ; NLS))
|
||||
(? (%' ? NLS))
|
||||
(AUMLAUT (… „ NLS))
|
||||
(AUMLAUT ( NLS))
|
||||
(CAPSLOCK CTRLDOWN . CTRLUP)
|
||||
(CONTROL LOCKDOWN . LOCKUP)
|
||||
(CR (CR CR))
|
||||
@@ -1591,10 +1591,10 @@
|
||||
(NUMERIC8 (|8| |8|))
|
||||
(NUMERIC9 (|9| |9|))
|
||||
(NUMERIC= (= =))
|
||||
(OUMLAUT (‚ ” NLS))
|
||||
(UUMLAUT (Š <20> NLS))
|
||||
(OUMLAUT ( NLS))
|
||||
(UUMLAUT ( NLS))
|
||||
(%[ (%] %[ NLS))
|
||||
(_ (- _ NLS))
|
||||
(← (- ← NLS))
|
||||
({ (< { NLS))
|
||||
(} (> } NLS)))
|
||||
((HELP 0)
|
||||
@@ -1658,7 +1658,7 @@
|
||||
(%. 49)
|
||||
(%: 49)
|
||||
(- 50)
|
||||
(_ 50)
|
||||
(← 50)
|
||||
(RSHIFT 51)
|
||||
(LINEFEED 52)
|
||||
(CONTROL 53)
|
||||
|
||||
Binary file not shown.
270
sources/CLISP
270
sources/CLISP
@@ -1,18 +1,11 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(FILECREATED "16-May-90 12:27:02" {DSK}<usr>local>lde>lispcore>sources>CLISP.;2 45083
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT UTF-8)
|
||||
|
||||
changes to%: (VARS CLISPCOMS)
|
||||
(FILECREATED "19-Feb-2026 12:00:55" {WMEDLEY}<sources>CLISP.;2 44501
|
||||
|
||||
previous date%: "26-Nov-86 12:32:58" {DSK}<usr>local>lde>lispcore>sources>CLISP.;1)
|
||||
:EDIT-BY rmk
|
||||
|
||||
:PREVIOUS-DATE "16-May-90 12:27:02" {WMEDLEY}<sources>CLISP.;1)
|
||||
|
||||
(* ; "
|
||||
Copyright (c) 1982, 1983, 1984, 1985, 1986, 1990 by Venue & Xerox Corporation. All rights reserved.
|
||||
The following program was created in 1982 but has not been published
|
||||
within the meaning of the copyright law, is furnished under license,
|
||||
and may not be used, copied and/or disclosed except in accordance
|
||||
with the terms of said license.
|
||||
")
|
||||
|
||||
(PRETTYCOMPRINT CLISPCOMS)
|
||||
|
||||
@@ -57,16 +50,16 @@ with the terms of said license.
|
||||
(COMS (* CLISP props)
|
||||
(PROP CLISPTYPE %')
|
||||
[E (SETQQ CLISPCHARS
|
||||
(^ * / + - = _ %: %' ~ +- ~= < > @ ! ¬ ))
|
||||
(↑ * / + - = ← %: %' ~ +- ~= < > @ ! _ ^))
|
||||
(CLISPDEC '(STANDARD MIXED]
|
||||
[VARS (CLISPFLG T)
|
||||
(CLISPCHARS '(^ * / + - = _ %: %' ~ +- ~= < > @ ! ¬ ]
|
||||
(CLISPCHARS '(↑ * / + - = ← %: %' ~ +- ~= < > @ ! _ ^]
|
||||
(INITVARS (CLISPHELPFLG T)
|
||||
(TREATASCLISPFLG)
|
||||
(CLISPINFIXSPLST)
|
||||
(CLISPCHARRAY (MAKEBITTABLE CLISPCHARS))
|
||||
[LEFT.ARROWS.BITTABLE (MAKEBITTABLE '(_ ¬]
|
||||
(LEFT.ARROW '_)
|
||||
[LEFT.ARROWS.BITTABLE (MAKEBITTABLE '(← _]
|
||||
(LEFT.ARROW '←)
|
||||
(CLISPISWORDSPLST)
|
||||
(CLISPLASTSUB (CONS))
|
||||
(CHECKCARATOMFLG)
|
||||
@@ -74,7 +67,7 @@ with the terms of said license.
|
||||
(CLISPARITHCLASSLST '(INTEGER FIXED MIXED FLOATING))
|
||||
(DWIMINMACROSFLG NIL))
|
||||
(IFPROP (CLISPTYPE LISPFN UNARYOP CLISPCLASS CLISPCLASSDEF CLISPNEG CLISPBRACKET)
|
||||
^ * / + - = _ ¬ %: %' ~ +- ~= < > @ !)
|
||||
^ ↑ * / + - = ← _ %: %' ~ +- ~= < > @ !)
|
||||
(VARS DECLWORDS)
|
||||
(IFPROP (CLISPTYPE LISPFN UNARYOP CLISPINFIX CLISPCLASS CLISPCLASSDEF CLISPNEG
|
||||
BROADSCOPE)
|
||||
@@ -160,34 +153,14 @@ with the terms of said license.
|
||||
|
||||
(RPAQ? RPARKEY 0)
|
||||
|
||||
(RPAQ? WTFIXCHCONLST '(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
|
||||
NIL NIL))
|
||||
(RPAQ? WTFIXCHCONLST '(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
|
||||
NIL))
|
||||
|
||||
(RPAQ? WTFIXCHCONLST1 '(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
|
||||
NIL NIL))
|
||||
(RPAQ? WTFIXCHCONLST1 '(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
|
||||
NIL))
|
||||
|
||||
(ADDTOVAR EDITMACROS
|
||||
(FIX9 (X N)
|
||||
(BIND (E (SETQ %#1 (EDITFPAT 'X))
|
||||
T)
|
||||
(IF (NOT (ATOM (%##)))
|
||||
(1))
|
||||
(COMS (SPLIT89 RPARKEY N))
|
||||
(I F RPARKEY T)
|
||||
(E [SETQ %#2 (ADD1 (LENGTH (CAR L]
|
||||
T)
|
||||
!0 MARK (LPQ [IF (OR (NULL %#1)
|
||||
(NOT (EDIT4E %#1 (%## 1]
|
||||
UP
|
||||
(E (SETQ %#3 (LENGTH (CAR L)))
|
||||
T)
|
||||
(I RI 1 (MINUS %#2))
|
||||
(E (SETQ %#2 %#3)
|
||||
T)
|
||||
1 !0)
|
||||
__
|
||||
(DELETE NX)))
|
||||
(FIX9 NIL (FIX9))
|
||||
(FIX8 NIL (FIX8))
|
||||
(FIX8 (X N)
|
||||
(BIND (E (SETQ %#1 (EDITFPAT 'X))
|
||||
T)
|
||||
@@ -206,14 +179,34 @@ with the terms of said license.
|
||||
UP
|
||||
(RO 1)
|
||||
!0)))
|
||||
(FIX8 NIL (FIX8)))
|
||||
(FIX9 NIL (FIX9))
|
||||
(FIX9 (X N)
|
||||
(BIND (E (SETQ %#1 (EDITFPAT 'X))
|
||||
T)
|
||||
(IF (NOT (ATOM (%##)))
|
||||
(1))
|
||||
(COMS (SPLIT89 RPARKEY N))
|
||||
(I F RPARKEY T)
|
||||
(E [SETQ %#2 (ADD1 (LENGTH (CAR L]
|
||||
T)
|
||||
!0 MARK (LPQ [IF (OR (NULL %#1)
|
||||
(NOT (EDIT4E %#1 (%## 1]
|
||||
UP
|
||||
(E (SETQ %#3 (LENGTH (CAR L)))
|
||||
T)
|
||||
(I RI 1 (MINUS %#2))
|
||||
(E (SETQ %#2 %#3)
|
||||
T)
|
||||
1 !0)
|
||||
←←
|
||||
(DELETE NX))))
|
||||
|
||||
(ADDTOVAR DWIMUSERFORMS )
|
||||
|
||||
(ADDTOVAR LAMBDASPLST LAMBDA NLAMBDA)
|
||||
|
||||
(ADDTOVAR OKREEVALST AND OR PROGN SAVESETQ CAR CDR ADD1 SUB1 CONS LIST EQ EQUAL PRINT PRIN1
|
||||
APPEND NEQ NOT NULL)
|
||||
(ADDTOVAR OKREEVALST AND OR PROGN SAVESETQ CAR CDR ADD1 SUB1 CONS LIST EQ EQUAL PRINT PRIN1 APPEND
|
||||
NEQ NOT NULL)
|
||||
|
||||
(ADDTOVAR NOFIXFNSLST )
|
||||
|
||||
@@ -266,6 +259,17 @@ with the terms of said license.
|
||||
(ADDTOVAR DWIMEQUIVLST )
|
||||
|
||||
(ADDTOVAR EDITMACROS
|
||||
(CLISP%: NIL (BIND (E (COND ((SETQ %#1 (AND CLISPARRAY (GETHASH (%##)
|
||||
CLISPARRAY)))
|
||||
(SETQQ COM CLISP%:)
|
||||
(EDITE %#1))
|
||||
(T (PRIN1 '"not translated.
|
||||
" T)))
|
||||
T)))
|
||||
(NOCLISP COMS (RESETVAR CLISPTRANFLG NIL . COMS))
|
||||
(NOCLISP NIL (NOCLISP TTY%:))
|
||||
(!DW NIL (RESETVAR CLISPRETRANFLG T DW))
|
||||
(PPT NIL (RESETVAR PRETTYTRANFLG T PP))
|
||||
(DW NIL (BIND (E (PROGN (SETQ %#1 (%##))
|
||||
(AND (CDR L)
|
||||
(%## !0 (E (SETQ %#2 L)
|
||||
@@ -280,18 +284,7 @@ with the terms of said license.
|
||||
(IF (LISTP %#3)
|
||||
(1)
|
||||
NIL))
|
||||
NIL)))
|
||||
(PPT NIL (RESETVAR PRETTYTRANFLG T PP))
|
||||
(!DW NIL (RESETVAR CLISPRETRANFLG T DW))
|
||||
(NOCLISP NIL (NOCLISP TTY%:))
|
||||
(NOCLISP COMS (RESETVAR CLISPTRANFLG NIL . COMS))
|
||||
(CLISP%: NIL (BIND (E (COND ((SETQ %#1 (AND CLISPARRAY (GETHASH (%##)
|
||||
CLISPARRAY)))
|
||||
(SETQQ COM CLISP%:)
|
||||
(EDITE %#1))
|
||||
(T (PRIN1 '"not translated.
|
||||
" T)))
|
||||
T))))
|
||||
NIL))))
|
||||
|
||||
(ADDTOVAR EDITCOMSA PPT DW !DW CLISP%:)
|
||||
|
||||
@@ -304,7 +297,7 @@ with the terms of said license.
|
||||
|
||||
(RPAQQ CLISPFLG T)
|
||||
|
||||
(RPAQQ CLISPCHARS (^ * / + - = _ %: %' ~ +- ~= < > @ ! ¬ ))
|
||||
(RPAQQ CLISPCHARS (↑ * / + - = ← %: %' ~ +- ~= < > @ ! _ ^))
|
||||
|
||||
(RPAQ? CLISPHELPFLG T)
|
||||
|
||||
@@ -314,9 +307,9 @@ with the terms of said license.
|
||||
|
||||
(RPAQ? CLISPCHARRAY (MAKEBITTABLE CLISPCHARS))
|
||||
|
||||
(RPAQ? LEFT.ARROWS.BITTABLE (MAKEBITTABLE '(_ ¬)))
|
||||
(RPAQ? LEFT.ARROWS.BITTABLE (MAKEBITTABLE '(← _)))
|
||||
|
||||
(RPAQ? LEFT.ARROW '_)
|
||||
(RPAQ? LEFT.ARROW '←)
|
||||
|
||||
(RPAQ? CLISPISWORDSPLST )
|
||||
|
||||
@@ -330,10 +323,10 @@ with the terms of said license.
|
||||
|
||||
(RPAQ? DWIMINMACROSFLG NIL)
|
||||
|
||||
(PUTPROPS CLISPTYPE 6)
|
||||
|
||||
(PUTPROPS ^ CLISPTYPE 6)
|
||||
|
||||
(PUTPROPS ↑ CLISPTYPE 6)
|
||||
|
||||
(PUTPROPS * CLISPTYPE 4)
|
||||
|
||||
(PUTPROPS / CLISPTYPE 4)
|
||||
@@ -344,9 +337,9 @@ with the terms of said license.
|
||||
|
||||
(PUTPROPS = CLISPTYPE -20)
|
||||
|
||||
(PUTPROPS _ CLISPTYPE (8 . -12))
|
||||
(PUTPROPS ← CLISPTYPE (8 . -12))
|
||||
|
||||
(PUTPROPS ¬ CLISPTYPE (8 . -12))
|
||||
(PUTPROPS _ CLISPTYPE (8 . -12))
|
||||
|
||||
(PUTPROPS %: CLISPTYPE (14 . 13))
|
||||
|
||||
@@ -360,10 +353,10 @@ with the terms of said license.
|
||||
|
||||
(PUTPROPS > CLISPTYPE BRACKET)
|
||||
|
||||
(PUTPROPS LISPFN EXPT)
|
||||
|
||||
(PUTPROPS ^ LISPFN EXPT)
|
||||
|
||||
(PUTPROPS ↑ LISPFN EXPT)
|
||||
|
||||
(PUTPROPS * LISPFN TIMES)
|
||||
|
||||
(PUTPROPS / LISPFN QUOTIENT)
|
||||
@@ -374,9 +367,9 @@ with the terms of said license.
|
||||
|
||||
(PUTPROPS = LISPFN EQ)
|
||||
|
||||
(PUTPROPS _ LISPFN SETQ)
|
||||
(PUTPROPS ← LISPFN SETQ)
|
||||
|
||||
(PUTPROPS ¬ LISPFN SETQ)
|
||||
(PUTPROPS _ LISPFN SETQ)
|
||||
|
||||
(PUTPROPS %' LISPFN QUOTE)
|
||||
|
||||
@@ -750,7 +743,7 @@ with the terms of said license.
|
||||
|
||||
(PUTPROPS OR CLISPINFIX or)
|
||||
|
||||
(PUTPROPS SETQ CLISPINFIX _)
|
||||
(PUTPROPS SETQ CLISPINFIX ←)
|
||||
|
||||
(PUTPROPS IPLUS CLISPINFIX +)
|
||||
|
||||
@@ -780,7 +773,7 @@ with the terms of said license.
|
||||
|
||||
(PUTPROPS GREATERP CLISPINFIX gt)
|
||||
|
||||
(PUTPROPS EXPT CLISPINFIX ^)
|
||||
(PUTPROPS EXPT CLISPINFIX ↑)
|
||||
|
||||
(PUTPROPS LT CLISPCLASS LT)
|
||||
|
||||
@@ -931,7 +924,7 @@ with the terms of said license.
|
||||
(PUTPROPS SETA SETFN (ELT))
|
||||
|
||||
(DEFOPTIMIZER CLISP% (X &REST Y)
|
||||
X)
|
||||
X)
|
||||
|
||||
(PUTPROPS AND CLISPWORD T)
|
||||
|
||||
@@ -1146,83 +1139,82 @@ with the terms of said license.
|
||||
(PUTPROPS while CLISPWORD (FORWORD . while))
|
||||
|
||||
(PUTPROPS always I.S.OPR ((COND ((NULL BODY)
|
||||
(SETQ $$VAL NIL)
|
||||
(GO $$OUT)))
|
||||
BIND
|
||||
(SETQ $$VAL T)))
|
||||
(SETQ $$VAL NIL)
|
||||
(GO $$OUT)))
|
||||
BIND
|
||||
(SETQ $$VAL T)))
|
||||
|
||||
(PUTPROPS collect I.S.OPR ((SETQ $$VAL (NCONC1 $$VAL BODY))))
|
||||
|
||||
(PUTPROPS count I.S.OPR ((AND BODY (SETQ $$VAL (ADD1 $$VAL)))
|
||||
BIND
|
||||
($$VAL _ 0)))
|
||||
BIND
|
||||
($$VAL ← 0)))
|
||||
|
||||
(PUTPROPS do I.S.OPR (BODY))
|
||||
|
||||
(PUTPROPS fcollect I.S.OPR [(= SUBPAIR '(VAR1 VAR2)
|
||||
(LIST (GETDUMMYVAR T)
|
||||
(GETDUMMYVAR T))
|
||||
'(PROGN (SETQ VAR1 BODY)
|
||||
(COND [VAR2 (FRPLACD VAR2 (SETQ VAR2 (LIST VAR1]
|
||||
(T (SETQ $$VAL (SETQ VAR2 (LIST VAR1])
|
||||
(LIST (GETDUMMYVAR T)
|
||||
(GETDUMMYVAR T))
|
||||
'(PROGN (SETQ VAR1 BODY)
|
||||
(COND [VAR2 (FRPLACD VAR2 (SETQ VAR2 (LIST VAR1]
|
||||
(T (SETQ $$VAL (SETQ VAR2 (LIST VAR1])
|
||||
|
||||
(PUTPROPS inside I.S.OPR [NIL = SUBST (GETDUMMYVAR)
|
||||
'VAR
|
||||
'(bind (VAR _ BODY)
|
||||
eachtime
|
||||
(COND ((NULL VAR)
|
||||
(GO $$OUT))
|
||||
((NLISTP VAR)
|
||||
(SETQ I.V. VAR)
|
||||
(SETQ VAR NIL))
|
||||
(T (SETQ I.V. (CAR VAR))
|
||||
(SETQ VAR (CDR VAR])
|
||||
'VAR
|
||||
'(bind (VAR ← BODY)
|
||||
eachtime
|
||||
(COND ((NULL VAR)
|
||||
(GO $$OUT))
|
||||
((NLISTP VAR)
|
||||
(SETQ I.V. VAR)
|
||||
(SETQ VAR NIL))
|
||||
(T (SETQ I.V. (CAR VAR))
|
||||
(SETQ VAR (CDR VAR])
|
||||
|
||||
(PUTPROPS join I.S.OPR ((SETQ $$VAL (NCONC $$VAL BODY))))
|
||||
|
||||
(PUTPROPS largest I.S.OPR [NIL = SUBST (GETDUMMYVAR)
|
||||
'$$TEMP
|
||||
'(BIND $$EXTREME $$TEMP DO (SETQ $$TEMP BODY)
|
||||
(COND ((OR (NULL $$EXTREME)
|
||||
(GREATERP $$TEMP $$EXTREME))
|
||||
(SETQ $$EXTREME $$TEMP)
|
||||
(SETQ $$VAL I.V.])
|
||||
'$$TEMP
|
||||
'(BIND $$EXTREME $$TEMP DO (SETQ $$TEMP BODY)
|
||||
(COND ((OR (NULL $$EXTREME)
|
||||
(GREATERP $$TEMP $$EXTREME))
|
||||
(SETQ $$EXTREME $$TEMP)
|
||||
(SETQ $$VAL I.V.])
|
||||
|
||||
(PUTPROPS never I.S.OPR ((COND (BODY (SETQ $$VAL NIL)
|
||||
(GO $$OUT)))
|
||||
BIND
|
||||
($$VAL _ T)))
|
||||
(GO $$OUT)))
|
||||
BIND
|
||||
($$VAL ← T)))
|
||||
|
||||
(PUTPROPS old I.S.OPR MODIFIER)
|
||||
|
||||
(PUTPROPS smallest I.S.OPR [NIL = SUBST (GETDUMMYVAR)
|
||||
'$$TEMP
|
||||
'(BIND $$EXTREME $$TEMP DO (SETQ $$TEMP BODY)
|
||||
(COND ((OR (NULL $$EXTREME)
|
||||
(LESSP $$TEMP $$EXTREME))
|
||||
(SETQ $$EXTREME $$TEMP)
|
||||
(SETQ $$VAL I.V.])
|
||||
'$$TEMP
|
||||
'(BIND $$EXTREME $$TEMP DO (SETQ $$TEMP BODY)
|
||||
(COND ((OR (NULL $$EXTREME)
|
||||
(LESSP $$TEMP $$EXTREME))
|
||||
(SETQ $$EXTREME $$TEMP)
|
||||
(SETQ $$VAL I.V.])
|
||||
|
||||
(PUTPROPS sum I.S.OPR ((SETQ $$VAL (PLUS $$VAL BODY))
|
||||
BIND
|
||||
($$VAL _ 0)))
|
||||
BIND
|
||||
($$VAL ← 0)))
|
||||
|
||||
(PUTPROPS thereis I.S.OPR [(COND (BODY (SETQ $$VAL (OR I.V. T))
|
||||
(GO $$OUT])
|
||||
(GO $$OUT])
|
||||
|
||||
(ADDTOVAR I.S.OPRLST ALWAYS AS BIND BY COLLECT COUNT DECLARE DECLARE%: DO EACHTIME FCOLLECT
|
||||
FINALLY FIND FIRST FOR FROM IN INSIDE ISTHERE JOIN LARGEST NEVER OLD
|
||||
ON ORIGINAL REPEATUNTIL REPEATWHILE SMALLEST SUCHTHAT SUM THEREIS THRU
|
||||
TO UNLESS UNTIL WHEN WHERE WHILE always as bind by collect count
|
||||
declare declare%: do eachtime fcollect finally find first for from in
|
||||
inside isthere join largest never old on original repeatuntil
|
||||
repeatwhile smallest suchthat sum thereis thru to unless until when
|
||||
where while)
|
||||
(ADDTOVAR I.S.OPRLST ALWAYS AS BIND BY COLLECT COUNT DECLARE DECLARE%: DO EACHTIME FCOLLECT FINALLY
|
||||
FIND FIRST FOR FROM IN INSIDE ISTHERE JOIN LARGEST NEVER OLD ON ORIGINAL
|
||||
REPEATUNTIL REPEATWHILE SMALLEST SUCHTHAT SUM THEREIS THRU TO UNLESS UNTIL
|
||||
WHEN WHERE WHILE always as bind by collect count declare declare%: do
|
||||
eachtime fcollect finally find first for from in inside isthere join
|
||||
largest never old on original repeatuntil repeatwhile smallest suchthat
|
||||
sum thereis thru to unless until when where while)
|
||||
|
||||
(ADDTOVAR CLISPFORWORDSPLST ALWAYS AS BIND BY COLLECT COUNT DECLARE DECLARE%: DO EACHTIME
|
||||
FCOLLECT FINALLY FIND FIRST FOR FROM IN INSIDE ISTHERE JOIN
|
||||
LARGEST NEVER OLD ON ORIGINAL REPEATUNTIL REPEATWHILE SMALLEST
|
||||
SUCHTHAT SUM THEREIS THRU TO UNLESS UNTIL WHEN WHERE WHILE)
|
||||
(ADDTOVAR CLISPFORWORDSPLST ALWAYS AS BIND BY COLLECT COUNT DECLARE DECLARE%: DO EACHTIME FCOLLECT
|
||||
FINALLY FIND FIRST FOR FROM IN INSIDE ISTHERE JOIN LARGEST NEVER
|
||||
OLD ON ORIGINAL REPEATUNTIL REPEATWHILE SMALLEST SUCHTHAT SUM
|
||||
THEREIS THRU TO UNLESS UNTIL WHEN WHERE WHILE)
|
||||
|
||||
(RPAQQ CLISPDUMMYFORVARS ($$TEM0 $$TEM1 $$TEM2 $$TEM3 $$TEM4 $$TEM5 $$TEM6))
|
||||
|
||||
@@ -1241,17 +1233,18 @@ with the terms of said license.
|
||||
(DEFINEQ
|
||||
|
||||
(DUMPI.S.OPRS
|
||||
[NLAMBDA X (* lmm "14-Aug-84 18:34")
|
||||
|
||||
(* Dump I.S.OPRS definitions. -
|
||||
redefined to dump out same case as given)
|
||||
|
||||
[NLAMBDA X (* lmm "14-Aug-84 18:34")
|
||||
(* Dump I.S.OPRS definitions.
|
||||
-
|
||||
redefined to dump out same case as
|
||||
given)
|
||||
(for Y in X collect (OR (GETDEF.I.S.OPR Y)
|
||||
(PROG1 NIL (LISPXPRINT (LIST 'I.S.OPR Y 'not 'defined)
|
||||
T T])
|
||||
(PROG1 NIL
|
||||
(LISPXPRINT (LIST 'I.S.OPR Y 'not 'defined)
|
||||
T T))])
|
||||
|
||||
(GETDEF.I.S.OPR
|
||||
[LAMBDA (Y) (* lmm "14-Aug-84 18:34")
|
||||
[LAMBDA (Y) (* lmm "14-Aug-84 18:34")
|
||||
(PROG (TEM BODY EVALFLG)
|
||||
(RETURN
|
||||
(CONS 'I.S.OPR
|
||||
@@ -1279,9 +1272,9 @@ with the terms of said license.
|
||||
[(CDR BODY)
|
||||
(COND
|
||||
(EVALFLG (SHOULDNT)))
|
||||
|
||||
(* somehow there was an = in front of the i.s.type and not in front of the
|
||||
others. this shouldnt happen)
|
||||
|
||||
(* somehow there was an = in front of the i.s.type and not in front of the
|
||||
others. this shouldnt happen)
|
||||
|
||||
(LIST (KWOTE (CDR BODY]
|
||||
(EVALFLG '(NIL T]
|
||||
@@ -1298,11 +1291,11 @@ with the terms of said license.
|
||||
|
||||
|
||||
(ADDTOVAR DURATIONCLISPWORDS (TIMERUNITS timerUnits timerunits)
|
||||
(USINGBOX usingBox usingbox)
|
||||
(USINGTIMER usingTimer usingtimer)
|
||||
(FORDURATION forDuration forduration DURING during)
|
||||
(RESOURCENAME resourceName resourcename)
|
||||
(UNTILDATE untilDate untildate))
|
||||
(USINGBOX usingBox usingbox)
|
||||
(USINGTIMER usingTimer usingtimer)
|
||||
(FORDURATION forDuration forduration DURING during)
|
||||
(RESOURCENAME resourceName resourcename)
|
||||
(UNTILDATE untilDate untildate))
|
||||
|
||||
(PUTPROPS TIMERUNITS CLISPWORD (FORWORD . timerUnits))
|
||||
|
||||
@@ -1477,7 +1470,6 @@ with the terms of said license.
|
||||
|
||||
(ADDTOVAR LAMA )
|
||||
)
|
||||
(PUTPROPS CLISP COPYRIGHT ("Venue & Xerox Corporation" T 1982 1983 1984 1985 1986 1990))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (37614 40224 (DUMPI.S.OPRS 37624 . 38032) (GETDEF.I.S.OPR 38034 . 40222)))))
|
||||
(FILEMAP (NIL (36881 39751 (DUMPI.S.OPRS 36891 . 37559) (GETDEF.I.S.OPR 37561 . 39749)))))
|
||||
STOP
|
||||
|
||||
BIN
sources/CLISP.DFASL
Normal file
BIN
sources/CLISP.DFASL
Normal file
Binary file not shown.
File diff suppressed because one or more lines are too long
2438
sources/DWIMIFY
2438
sources/DWIMIFY
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Reference in New Issue
Block a user