;;-*-mode:lisp;package:lambda-*-
;; (C) Copyright 1984 Lisp Machine, Inc.

;; This is a test-only file of Lisp->C translation.

(eval-for-translation
  (defprop foo-bar-baz "fbb" sdu-c-function)
  (defprop whatabar "wab" sdu-c-function)
  (setq *output-main-prog? nil))

(defun foo-bar-baz (a b c)
  (whatabar 9 "meomy" c)
  (write-m-mem a b)
  (write-m-mem 33. c))