home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / feel0_89.lha / Feel / Boot / conform.em < prev    next >
Encoding:
Text File  |  1993-07-04  |  382 b   |  23 lines
  1. ;; Eulisp Module
  2. ;; Author: pab
  3. ;; File: conform.em
  4. ;; Date: Sun Jul  4 18:02:03 1993
  5. ;;
  6. ;; Project:
  7. ;; Description: 
  8. ;;
  9.  
  10. (defmodule conform
  11.   (eulisp0
  12.          
  13.    )
  14.   ()
  15.   
  16.   (defun test-fn (id fn args expect)
  17.     (let ((result (apply fn args)))
  18.       (format t "doing: ~a [~a] ~%expected: ~a~% got: ~a~%" id args expect result)
  19.       (equal expect result)))
  20.  
  21.   ;; end module
  22.   )
  23.