Fixed bug in TYPEP on deftypes with parameters. This was breaking - gcl.git - GNU Common Lisp

diff --git a/gcl/lsp/predlib.c b/gcl/lsp/predlib.c
index baa19ad37..ba69369ad 100644
--- a/gcl/lsp/predlib.c
+++ b/gcl/lsp/predlib.c

@@ -1349,7 +1349,7 @@ T327:;

goto T333;}

base[2]= (V48);

{object V84;

- V84= Cnil;

+ V84= (V47);

vs_top=base+3;

while(!endp(V84))

{vs_push(car(V84));V84=cdr(V84);}

diff --git a/gcl/lsp/predlib.lsp b/gcl/lsp/predlib.lsp
index ef1a807f5..2c0d8455a 100755
--- a/gcl/lsp/predlib.lsp
+++ b/gcl/lsp/predlib.lsp

@@ -248,7 +248,7 @@

(structure-subtype-p object tem))

((setq tem (get tp 'deftype-definition))

(typep object

- (apply tem nil)))))))

+ (apply tem i)))))))

;;; NORMALIZE-TYPE normalizes the type using the DEFTYPE definitions.