Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

null追加

  • Loading branch information...
commit 8f9f07e0d8ad6b3905713d0b3005a42326feea3f 1 parent ebfcd21
@sile authored
Showing with 6 additions and 1 deletion.
  1. +2 −1  plint/eval/eval.lisp
  2. +4 −0 plint/eval/type.lisp
View
3  plint/eval/eval.lisp
@@ -31,7 +31,8 @@
(defun eval-list (value env)
(labels ((recur (list)
- (when list
+ (if (null list)
+ (make-type.null)
(make-type.cons :car (eval-ast (car list) env)
:cdr (recur (cdr list))))))
(recur value)))
View
4 plint/eval/type.lisp
@@ -68,4 +68,8 @@
(defstruct type.undef)
(defmethod print-object ((o type.undef) out)
(format out "!<UNDEF>"))
+
+(defstruct type.null)
+(defmethod print-object ((o type.null) out)
+ (format out "!<NULL>"))
Please sign in to comment.
Something went wrong with that request. Please try again.