From 8e2f01785d31e908194c1846d8437285aad31478 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Tue, 18 Dec 2012 01:14:26 +0000 Subject: [PATCH] < --- lispstrack.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lispstrack.lisp b/lispstrack.lisp index 1661f22..b53db0a 100644 --- a/lispstrack.lisp +++ b/lispstrack.lisp @@ -152,6 +152,8 @@ (ecase (%read-char stream) (#\' (list 'function (ls-read stream))) + (#\\ + (%read-char stream)) (#\+ (let ((feature (read-until stream #'terminalp))) (cond @@ -161,7 +163,8 @@ ((string= feature "lispstrack") (ls-read stream)) (t - (error "Unknown reader form."))))))) + (error "Unknown reader form."))))) + )) (t (let ((string (read-until stream #'terminalp))) (if (every #'digit-char-p string) @@ -386,6 +389,9 @@ (define-compilation / (x y) (concat "((" (ls-compile x env fenv) ") / (" (ls-compile y env fenv) "))")) +(define-compilation < (x y) + (concat "((" (ls-compile x env fenv) ") < (" (ls-compile y env fenv) "))")) + (define-compilation = (x y) (concat "((" (ls-compile x env fenv) ") == (" (ls-compile y env fenv) "))")) -- 1.7.10.4