[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Missing P in Xerox-patches



I suspect he last four lines in xerox-patches.lisp should be 

    (if (null compiler::*made-changes*)
	(setf (compiler::node-meta-p compiler::node) compiler:context)
;                   Note the -p   ^^
	(setf (compiler::node-meta-p compiler::node) nil)))
  compiler::node)

instead of 

    (if (null compiler::*made-changes*)
	(setf (compiler::node-meta- compiler::node) compiler:context)
	(setf (compiler::node-meta-p compiler::node) nil)))
  compiler::node)


...arun