Skip to content

Instantly share code, notes, and snippets.

@pebblexe

pebblexe/test.lisp

Created March 20, 2017 19:02
Show Gist options
  • Save pebblexe/28473dc4b1a172e023c9d6f5a993e29c to your computer and use it in GitHub Desktop.
Save pebblexe/28473dc4b1a172e023c9d6f5a993e29c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
test.lisp
(defmethod pack (((<= (-1 * #x80000000) n -1)))
(list
#xd2
(ldb (byte 8 24) n)
(ldb (byte 8 16) n)
(ldb (byte 8 8) n)
(ldb (byte 8 0) n)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment