The node "Lisp and Maxima" in the maxima texinfo manual states
To enter Maxima forms at lisp level, you may use the `#$' macro.
However, the example given there triggers an error
[1]> (in-package "MAXIMA")
#<PACKAGE MAXIMA>
MAXIMA[2]> (setq $foo #$[x,y]$)
*** - FUNCALL: the function PEEKTYIPEEK is undefined
1. Break MAXIMA[3]>
I propose the following patch
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ cut ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*** commac.lisp.ori Fri Apr 26 12:03:11 2002
--- commac.lisp Fri Apr 26 12:24:01 2002
***************
*** 460,464 ****
arg ;ignore
(setf (fill-pointer *sharp-read-buffer* ) 0)
! (cond ((eql #\$ (peektyipeek t stream))(tyi stream)
(setq meval-flag nil)))
(with-output-to-string
--- 460,464 ----
arg ;ignore
(setf (fill-pointer *sharp-read-buffer* ) 0)
! (cond ((eql #\$ (tyipeek t stream))(tyi stream)
(setq meval-flag nil)))
(with-output-to-string
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ cut ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(`tyipeek' is a simple wrapper around the ANSI CL function `peek-char')
Wolfgang
--
wjenkner@inode.at