1.0.32.34: remove curious-hacker-cruft from constraints.lisp

 ...that was not supposed to go in!

 *blush*

diff --git a/src/compiler/constraint.lisp b/src/compiler/constraint.lisp
index df2f3b9..5a4c627 100644 (file)
--- a/src/compiler/constraint.lisp
+++ b/src/compiler/constraint.lisp
@@ -508,15 +508,9 @@
                       (add (if (eq name '<) '> '<) var2 (lvar-type arg1) nil))))
                  (t
                   (let ((ptype (gethash name *backend-predicate-types*)))
-                    (if ptype
-                        (add 'typep (ok-lvar-lambda-var (first args) constraints)
-                             ptype nil)
-                        (with-open-file (f "/tmp/unknown.txt"
-                                           :if-exists :append
-                                           :if-does-not-exist :create
-                                           :direction :output)
-                          (let ((*package* (find-package :keyword)))
-                            (format f "~S~%" name))))))))))))
+                    (when ptype
+                      (add 'typep (ok-lvar-lambda-var (first args) constraints)
+                           ptype nil))))))))))
       (values consequent-constraints alternative-constraints))))
 
 ;;;; Applying constraints

diff --git a/version.lisp-expr b/version.lisp-expr
index fb7f841..3de71c0 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.32.33"
+"1.0.32.34"