diff options
Diffstat (limited to 'src/algebra/strap/DFLOAT.lsp')
-rw-r--r-- | src/algebra/strap/DFLOAT.lsp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/algebra/strap/DFLOAT.lsp b/src/algebra/strap/DFLOAT.lsp index 5b2bd769..849d143a 100644 --- a/src/algebra/strap/DFLOAT.lsp +++ b/src/algebra/strap/DFLOAT.lsp @@ -915,15 +915,14 @@ (PROG (#0=#:G1562) (RETURN (COND - ((LETT #0# (HGET |$ConstructorCache| '|DoubleFloat|) - |DoubleFloat|) + ((SETQ #0# (HGET |$ConstructorCache| '|DoubleFloat|)) (|CDRwithIncrement| (CDAR #0#))) ('T (UNWIND-PROTECT (PROG1 (CDDAR (HPUT |$ConstructorCache| '|DoubleFloat| (LIST (CONS NIL (CONS 1 (|DoubleFloat;|)))))) - (LETT #0# T |DoubleFloat|)) + (SETQ #0# T)) (COND ((NOT #0#) (HREM |$ConstructorCache| '|DoubleFloat|))))))))) |