• SlowValue@alien.topB
    link
    fedilink
    English
    arrow-up
    1
    ·
    10 months ago
    (lisp-implementation-type)
    ;; ⇒ "SBCL"
    (lisp-implementation-version)
    ;; ⇒ "2.3.10"
    (setf (symbol-function 'foo) #'1+)
    ;; ⇒ #
    (let ((old-foo #'foo))
      (setf (symbol-function 'foo) #'1-)
      (funcall old-foo 42))
    ;; ⇒ 43 (6 bits, #x2B, #o53, #b101011)