Advertisement
Guest User

Untitled

a guest
Apr 1st, 2019
98
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defun (setf tag) (new-val word)
  2.   (setf (ldb (byte 6 32) word) new-val))
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement