diff options
Diffstat (limited to 'src/interp/cformat.boot')
| -rw-r--r-- | src/interp/cformat.boot | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/src/interp/cformat.boot b/src/interp/cformat.boot index 4f48e679..5155a277 100644 --- a/src/interp/cformat.boot +++ b/src/interp/cformat.boot @@ -70,22 +70,3 @@ ppos p == --keySeq ::= keynumber optargList optdbn --optARgL ::= [ 0 or more arguments ] | nothing at all --optDbn ::= ['dbN , databaseName ] | nothing at all ------------ (override in format.boot.pamphlet) -pkey keyStuff == - if not PAIRP keyStuff then keyStuff := [keyStuff] - allMsgs := [] - while not null keyStuff repeat - dbN := NIL - argL := NIL - key := first keyStuff - keyStuff := IFCDR keyStuff - next := IFCAR keyStuff - while PAIRP next repeat - if CAR next = 'dbN then dbN := CADR next - else argL := next - keyStuff := IFCDR keyStuff - next := IFCAR keyStuff - oneMsg := returnStLFromKey(key,argL,dbN) - allMsgs := NCONC (oneMsg,allMsgs) - allMsgs - |