Path: utzoo!attcan!uunet!husc6!uwvax!ai!neves
From: neves@ai.cs.wisc.edu (David M. Neves)
Newsgroups: comp.lang.lisp
Subject: Re: Pointer to OPS-5 on common lisp
Message-ID: <6273@spool.cs.wisc.edu>
Date: 14 Sep 88 20:48:32 GMT
References: <8805241933.AA19844@BLOOM-BEACON.MIT.EDU> <639@dinl.mmc.UUCP> <12151@oberon.USC.EDU>
Sender: news@spool.cs.wisc.edu
Reply-To: neves@ai.cs.wisc.edu (David M. Neves)
Organization: U of Wisconsin CS Dept
Lines: 22

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