From ee2d3451514e7b4fa7af68511a22a153b879c8cd Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Thu, 19 Nov 2009 16:35:50 +0000 Subject: [PATCH] 1.0.32.34: remove curious-hacker-cruft from constraints.lisp ...that was not supposed to go in! *blush* --- src/compiler/constraint.lisp | 12 +++--------- version.lisp-expr | 2 +- 2 files changed, 4 insertions(+), 10 deletions(-) diff --git a/src/compiler/constraint.lisp b/src/compiler/constraint.lisp index df2f3b9..5a4c627 100644 --- 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 --- 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" -- 1.7.10.4