simon/beowulf
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

(car-nil-legal t)

Browse source 
This is a joke only afficionados of Portable Standard Lisp will understand.
This commit is contained in:
Simon Brooke 2019-08-17 11:02:25 +01:00
parent dbab7651a3
commit bf83fd3d91
1 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/beowulf/eval.clj
View file

@ -27,19 +27,25 @@
(if (or (symbol? x) (number? x)) 'T NIL)) (if (or (symbol? x) (number? x)) 'T NIL))
(defn CAR (defn CAR
"Return the item indicated by the first pointer of a pair. NIL is treated
specially: the CAR of NIL is NIL."
[x] [x]
(if (cond
(instance? beowulf.cons_cell.ConsCell x) (= x NIL) NIL
(.CAR x) (instance? beowulf.cons_cell.ConsCell x) (.CAR x)
:else
(throw (throw
(Exception. (Exception.
(str "Cannot take CAR of `" x "` (" (.getName (.getClass x)) ")"))))) (str "Cannot take CAR of `" x "` (" (.getName (.getClass x)) ")")))))
(defn CDR (defn CDR
"Return the item indicated by the second pointer of a pair. NIL is treated
specially: the CDR of NIL is NIL."
[x] [x]
(if (cond
(instance? beowulf.cons_cell.ConsCell x) (= x NIL) NIL
(.CDR x) (instance? beowulf.cons_cell.ConsCell x) (.CDR x)
:else
(throw (throw
(Exception. (Exception.
(str "Cannot take CDR of `" x "` (" (.getName (.getClass x)) ")"))))) (str "Cannot take CDR of `" x "` (" (.getName (.getClass x)) ")")))))