From 43e4aa26464a27fdd5d80272f72839653a0f6cf9 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 31 Oct 2009 23:35:17 +0000 Subject: * interp/br-op2.boot (pairlis): Remove. (modemap2Sig): Use pairList. * interp/compiler.boot (applyMapping): Likewise. * interp/database.boot (augLisplibModemapsFromCategory): Likewise. (getOplistForConstructorForm): Likewise. * interp/define.boot (compDefineCategory2): Likewise. (compDefineFunctor1): Likewise. (mkOpVec): Likewise. * interp/lisplib.boot (finalizeLisplib): Likewise. * interp/nruncomp.boot (mkSlot1sublis): Likewise. * interp/wi1.boot (compDefineCategory2): Likewise. * interp/wi2.boot (compDefineFunctor1): Likewise. --- src/interp/database.boot | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/interp/database.boot') diff --git a/src/interp/database.boot b/src/interp/database.boot index 10340aab..f30bceec 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -171,8 +171,7 @@ getConstructorKind ctor == --% Functions for manipulating MODEMAP DATABASE augLisplibModemapsFromCategory(form is [op,:argl],body,signature) == - sl := [["$",:"*1"],:[[a,:p] for a in argl - for p in rest $PatternVariableList]] + sl := [["$",:"*1"],:pairList(argl,rest $PatternVariableList)] form:= SUBLIS(sl,form) body:= SUBLIS(sl,body) signature:= SUBLIS(sl,signature) @@ -711,7 +710,7 @@ getOplistForConstructorForm (form := [op,:argl]) == -- where signature-Alist has entries ( . item) -- where item has form ( ) -- where = ELT | CONST | Subsumed | (XLAM..) .. - pairlis:= [[fv,:arg] for fv in $FormalMapVariableList for arg in argl] + pairlis := pairList($FormalMapVariableList,argl) opAlist := getOperationAlistFromLisplib op [:getOplistWithUniqueSignatures(op,pairlis,signatureAlist) for [op,:signatureAlist] in opAlist] -- cgit v1.2.3