1.0.16.44: fix stackp handling in define-cloned-fop

	(Non-exposed bug spotted by Larry Valkama sbcl-devel 2008-04-30)

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index 146bec9..fd01949 100644 (file)
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -71,7 +71,7 @@
      (macrolet ((clone-arg () '(read-word-arg)))
        (define-fop (,name ,code :pushp ,pushp :stackp ,stackp) ,@forms))
      (macrolet ((clone-arg () '(read-byte-arg)))
-       (define-fop (,small-name ,small-code :pushp ,pushp :stackp stackp) ,@forms))))
+       (define-fop (,small-name ,small-code :pushp ,pushp :stackp ,stackp) ,@forms))))
 
 ;;; a helper function for reading string values from FASL files: sort
 ;;; of like READ-SEQUENCE specialized for files of (UNSIGNED-BYTE 8),

diff --git a/version.lisp-expr b/version.lisp-expr
index 61dc084..3ce5ae6 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.16.43"
+"1.0.16.44"