traversal/pt.lisp
Thu Dec 3 03:26:59 UTC 2009 pix@kepibu.org
* declare ignored variables
--- old-Oh, Ducks!/traversal/pt.lisp 2015-10-20 08:00:34.000000000 +0000
+++ new-Oh, Ducks!/traversal/pt.lisp 2015-10-20 08:00:34.000000000 +0000
@@ -1,6 +1,7 @@
(in-package #:oh-ducks.traversal)
(defmethod unify::occurs-in-p ((var symbol) (pat chtml:pt) env)
+ (declare (ignore var pat env))
nil)
;;; general accessors