tests/sb-md5.impure.lisp

   1 (require :sb-md5)
   2
   3 (let ((stream (make-string-output-stream)))
   4   (with-package-iterator (iter "SB-MD5" :internal :external)
   5     (loop
   6      (multiple-value-bind (flag symbol) (iter)
   7        (unless flag (return))
   8        (when (and (fboundp symbol) (not (macro-function symbol)))
   9          (let ((code (sb-kernel:fun-code-header (fdefinition symbol))))
  10            (disassemble code :stream stream)
  11            (let ((text (get-output-stream-string stream)))
  12              (when (search "ALIEN-FUNCALL" text)
  13                (error "Compiler bug on ~S" code)))))))))
  14
  15 (load "../contrib/sb-md5/md5-tests.lisp")