this post was submitted on 20 Nov 2023
1 points (100.0% liked)

Lisp

53 readers
3 users here now

founded 1 year ago
MODERATORS
you are viewing a single comment's thread
view the rest of the comments
[–] SlowValue@alien.top 1 points 1 year 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)