;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: rules.lisp,v 1.46 2003/06/06 21:59:29 kevin Exp $
+;;;; $Id: rules.lisp,v 1.47 2003/06/20 08:35:21 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
(func :initform nil :initarg :func :accessor func)))
(defun compile-rule (source-code dependants volatile cl)
+ (declare (ignore cl))
(let ((access (appendnew dependants volatile)))
(compile nil
(eval