16 lines
537 B
Plaintext
16 lines
537 B
Plaintext
$OpenBSD: patch-src_compiler_ir1util_lisp,v 1.1 2009/11/17 10:45:00 pirofti Exp $
|
|
|
|
Clisp 2.43 chokes on this declaration.
|
|
|
|
--- src/compiler/ir1util.lisp.orig Wed Jun 17 13:03:36 2009
|
|
+++ src/compiler/ir1util.lisp Mon Jun 29 08:22:24 2009
|
|
@@ -429,7 +429,7 @@
|
|
(lvar-dynamic-extent it)))
|
|
|
|
(defun flushable-combination-p (call)
|
|
- (declare (combination call))
|
|
+ (declare (type combination call))
|
|
(let ((kind (combination-kind call))
|
|
(info (combination-fun-info call)))
|
|
(when (and (eq kind :known) (fun-info-p info))
|