ref: ab59d89cf6abdc08488d8ecfa9111d240ef902b8
parent: 38ab710df8704dc44dc3274ce4e7d5037cd6c7ef
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Sun Nov 24 21:24:40 EST 2024
corrections: eq → eq? This is from Julia, 69d5b4c68a1a000d31e92223dff60d4daa48e15f
--- a/system.lsp
+++ b/system.lsp
@@ -350,7 +350,7 @@
(not (symbol? x)))
(and (constant? x)
(symbol? x)
- (eq x (top-level-value x)))))
+ (eq? x (top-level-value x)))))
(define-macro (quasiquote x) (bq-process x 0))
@@ -541,10 +541,10 @@
(let ((e (gensym)))
`(trycatch ,expr
(λ (,e) (if (and (pair? ,e)
- (eq (car ,e) 'thrown-value)
- (eq (cadr ,e) ,tag))
+ (eq? (car ,e) 'thrown-value)
+ (eq? (cadr ,e) ,tag))
(caddr ,e)
- (raise ,e))))))
+ (raise ,e))))))
(define-macro (unwind-protect expr finally)
(let ((e (gensym))