[Sbcl-devel] Typo in ir1tran.lisp

[Peter G. <pe...@ar...>]

Index: ir1tran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/ir1tran.lisp,v
retrieving revision 1.153
diff -u -r1.153 ir1tran.lisp
--- ir1tran.lisp	1 Feb 2008 11:15:34 -0000	1.153
+++ ir1tran.lisp	4 Feb 2008 10:30:37 -0000
@@ -35,7 +35,7 @@
 (declaim (hash-table *source-paths*))
 (defvar *source-paths*)
 
-(declaim (inline source-form-hash-path-p))
+(declaim (inline source-form-has-path-p))
 (defun source-form-has-path-p (form)
   (not (typep form '(or symbol fixnum character))))