[prev in list] [next in list] [prev in thread] [next in thread] 

List:       sbcl-commits
Subject:    [Sbcl-commits] CVS: sbcl/src/code target-random.lisp,1.19,1.20
From:       "Paul Khuong" <pkhuong () users ! sourceforge ! net>
Date:       2010-04-26 23:15:12
Message-ID: E1O6XWC-0003HH-RZ () sfp-cvsdas-3 ! v30 ! ch3 ! sourceforge ! com
[Download RAW message or body]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv12562/src/code

Modified Files:
	target-random.lisp 
Log Message:
1.0.37.70: Fix PRINT-OBJECT for RANDOM-STATE

 * Discovered by Hans Hubner, reported by madnificient on #lisp.


Index: target-random.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-random.lisp,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- target-random.lisp	27 Feb 2010 16:43:15 -0000	1.19
+++ target-random.lisp	26 Apr 2010 23:15:10 -0000	1.20
@@ -46,7 +46,7 @@
       (format stream "#S(~S ~S #.~S)"
               'random-state
               ':state
-              `(make-array (,(+ 3 mt19937-n))
+              `(make-array ,(+ 3 mt19937-n)
                 :element-type
                 '(unsigned-byte 32)
                 :initial-contents


------------------------------------------------------------------------------
_______________________________________________
Sbcl-commits mailing list
Sbcl-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/sbcl-commits
[prev in list] [next in list] [prev in thread] [next in thread]