Skip to content

Instantly share code, notes, and snippets.

@cbaggers

cbaggers/hmm.lisp

Created August 31, 2019 22:22
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save cbaggers/7593ec8169dab1b88db7ab3fe08a2f07 to your computer and use it in GitHub Desktop.
Save cbaggers/7593ec8169dab1b88db7ab3fe08a2f07 to your computer and use it in GitHub Desktop.
Download ZIP
nothing much
Raw
hmm.lisp
(PROGN
(DECLAIM (FTYPE (FUNCTION NIL SINGLE-FLOAT) BLOOP))
(DEFUN BLOOP ()
(THE SINGLE-FLOAT (BITS-SINGLE-FLOAT -4194304))))
@cbaggers
Copy link
Author 

; in: DEFUN BLOOP
;     (THE SINGLE-FLOAT (FLOAT-FEATURES:BITS-SINGLE-FLOAT -4194304))
; 
; note: type assertion too complex to check:
; (VALUES SINGLE-FLOAT &REST T).```

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment