X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fsparc%2Fcell.lisp;h=8477eddf99e600a4d80042c67633c7d025bdb400;hb=1ee20a4186d01454f5cf61a3049160c174568305;hp=c9613aabcab82e96673d3926cec1cd89b17b1826;hpb=57d30b9b5a4b2be52431e0a8daaf81d409d146a9;p=sbcl.git diff --git a/src/compiler/sparc/cell.lisp b/src/compiler/sparc/cell.lisp index c9613aa..8477edd 100644 --- a/src/compiler/sparc/cell.lisp +++ b/src/compiler/sparc/cell.lisp @@ -159,6 +159,9 @@ ;;; Establish VAL as a binding for SYMBOL. Save the old value and the ;;; symbol on the binding stack and stuff the new value into the ;;; symbol. +;;; +;;; See the "Chapter 9: Specials" of the SBCL Internals Manual. + (define-vop (bind) (:args (val :scs (any-reg descriptor-reg)) (symbol :scs (descriptor-reg)))