projects
/
lml.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r2711: Auto commit for Debian build
[lml.git]
/
lml.cl
diff --git
a/lml.cl
b/lml.cl
index 8efdc39a063e09a594c30b37eec09f84dc1eecc7..6ad713cf9890c74339bdb98f80e1d7da6f14f730 100644
(file)
--- a/
lml.cl
+++ b/
lml.cl
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
-;;;; $Id: lml.cl,v 1.
7 2002/09/16 09:43:51
kevin Exp $
+;;;; $Id: lml.cl,v 1.
8 2002/09/16 09:45:50
kevin Exp $
;;;;
;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-212,7
+212,7
@@
(if (eql ch #\()
;; Starting top-level ,(
(progn
(if (eql ch #\()
;; Starting top-level ,(
(progn
- (
princ
curr-string)
+ (
lml-print
curr-string)
(setf (fill-pointer curr-string) 0)
(setq got-comma nil)
(vector-push #\( curr-string)
(setf (fill-pointer curr-string) 0)
(setq got-comma nil)
(vector-push #\( curr-string)
@@
-225,7
+225,7
@@
(vector-push-extend #\) curr-string)
(let ((result (eval (read-from-string curr-string))))
(when result
(vector-push-extend #\) curr-string)
(let ((result (eval (read-from-string curr-string))))
(when result
- (
princ
result)))
+ (
lml-print
result)))
(setf (fill-pointer curr-string) 0))
;; read comma, then non #\( char
(progn
(setf (fill-pointer curr-string) 0))
;; read comma, then non #\( char
(progn
@@
-239,7
+239,7
@@
(progn
(setq got-comma nil)
(vector-push-extend ch curr-string)))))
(progn
(setq got-comma nil)
(vector-push-extend ch curr-string)))))
- (
princ
curr-string))
+ (
lml-print
curr-string))
t))
t))