From: Christophe R. <cr...@us...> - 2004-11-01 18:21:17
|
Update of /cvsroot/sbcl/sbcl/src/compiler/generic In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18963/src/compiler/generic Modified Files: genesis.lisp Log Message: 0.8.16.24: What I think are the final commonalities between the current tree and the soon-to-be-added #!+sb-unicode build option. This patch was brought to you by character_branch and much puzzling over diffs. Index: genesis.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/genesis.lisp,v retrieving revision 1.93 retrieving revision 1.94 diff -u -d -r1.93 -r1.94 --- genesis.lisp 1 Nov 2004 12:36:00 -0000 1.93 +++ genesis.lisp 1 Nov 2004 18:21:00 -0000 1.94 @@ -2099,8 +2099,8 @@ ;;;; cold fops for loading vectors -(clone-cold-fop (fop-string) - (fop-small-string) +(clone-cold-fop (fop-base-string) + (fop-small-base-string) (let* ((len (clone-arg)) (string (make-string len))) (read-string-as-bytes *fasl-input-stream* string) |