[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Missing P in Xerox-patches
- To: commonloops.PA@Xerox.COM
- Subject: Missing P in Xerox-patches
- From: Arun Welch <welch@cis.ohio-state.edu>
- Date: Thu, 8 Dec 88 16:28:59 EST
- Redistributed: commonloops.PA
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