diff options
Diffstat (limited to 'src/interp/lisplib.boot')
| -rw-r--r-- | src/interp/lisplib.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 31c00c7e..6c774ff5 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -617,7 +617,7 @@ getConstructorSignature ctor == getSlotFromCategoryForm ([op,:argl],index) == u:= eval [op,:MAPCAR('MKQ,TAKE(#argl,$FormalMapVariableList))] - not VECP u => + not vector? u => systemErrorHere '"getSlotFromCategoryForm" u . index |