projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Handle run-program with :directory nil.
[sbcl.git]
/
src
/
code
/
class.lisp
diff --git
a/src/code/class.lisp
b/src/code/class.lisp
index
19edd29
..
fc7ed29
100644
(file)
--- a/
src/code/class.lisp
+++ b/
src/code/class.lisp
@@
-685,7
+685,7
@@
(:make-load-form-fun (lambda (c)
`(find-classoid-cell
',(classoid-cell-name c)
(:make-load-form-fun (lambda (c)
`(find-classoid-cell
',(classoid-cell-name c)
- :errorp t)))
+ :create t)))
#-no-ansi-print-object
(:print-object (lambda (s stream)
(print-unreadable-object (s stream :type t)
#-no-ansi-print-object
(:print-object (lambda (s stream)
(print-unreadable-object (s stream :type t)
@@
-1104,6
+1104,11
@@
:inherits (complex number)
:codes (#.sb!vm:complex-long-float-widetag)
:prototype-form (complex 42l0 42l0))
:inherits (complex number)
:codes (#.sb!vm:complex-long-float-widetag)
:prototype-form (complex 42l0 42l0))
+ #!+sb-simd-pack
+ (simd-pack
+ :translation simd-pack
+ :codes (#.sb!vm:simd-pack-widetag)
+ :prototype-form (%make-simd-pack-ub64 42 42))
(real :translation real :inherits (number))
(float
:translation float
(real :translation real :inherits (number))
(float
:translation float