[comp.lang.lisp] Pointer to OPS-5 on common lisp

neves@ai.cs.wisc.edu (David M. Neves) (09/15/88)

Here are a couple of changes to common lisp ops5 you find useful.  The
first is an addition and the second is a bug fix.

;;; Delete all OPS5 material from memory.  Better than rebooting!
;;; Needed whenever a "literalize" is edited.
(defun cleanup nil
    (format t "starting to delete productions, memory, etc.")
    (remove *)
    (let ((proplist (quote
		     (production topnode backpointers wmpart* ops-bind 
				 att-list vector-attribute ppdat conflicts))))
      (do-symbols (litatom)
		  (if (symbol-plist litatom)
		      (dolist (i proplist) (remprop litatom i)))))
    (i-g-v) ;some versions of common lisp ops5 may have this
            ;initialization function as several different ones.
    (format t "~%done!~%"))

;  - change function "ari" so that division uses / rather than floor.
;David Neves, Computer Sciences Department, University of Wisconsin-Madison
;Usenet:  {rutgers,ucbvax}!uwvax!neves
;Arpanet: neves@cs.wisc.edu