X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Falpha%2Fmemory.lisp;h=fef2a833047c8d8871ec60e3f5841e70de3276e1;hb=672b2f6cb751566526c7f3bb3de6b7d8424760e2;hp=426d5808f27977cf2076fe0287b297b757e1a4b3;hpb=63fcb94b875a97e468d9add229e220ecceec2352;p=sbcl.git diff --git a/src/compiler/alpha/memory.lisp b/src/compiler/alpha/memory.lisp index 426d580..fef2a83 100644 --- a/src/compiler/alpha/memory.lisp +++ b/src/compiler/alpha/memory.lisp @@ -41,7 +41,7 @@ (loadw value object (+ base offset) lowtag))) (define-vop (slot-set) (:args (object :scs (descriptor-reg)) - (value :scs (descriptor-reg any-reg null zero))) + (value :scs (descriptor-reg any-reg null zero))) (:variant-vars base lowtag) (:info offset) (:generator 4