defentry

[djb@hoppi.mitre.org (David J. Braunegg)]

I can't get DEFENTRY to work right if the file is in a package other
than USER.

Consider the file site-init.lsp:



(in-package 'lisp)

;;; machine-instance
(Clines
 "
#include <sys/param.h>
#include <syscall.h>

static object machine_instance()
{
  return(make_simple_string(getenv(\"HOST\")));
}")

(defentry machine-instance-from-c () (object machine_instance))

(defun machine-instance ()
  (machine-instance-from-c))



This file compiles and works fine if the first line is
(in-package 'user), but when it is (in-package 'lisp), there is a
problem:


AKCL (Austin Kyoto Common Lisp)  Version(1.505) Tue Nov 27 14:10:40 EST 1990
Contains Enhancements by W. Schelter
>(compile-file "/usr/local/lib/lisp/site-init")
Compiling /usr/local/lib/lisp/site-init.lsp.
; (DEFUN MACHINE-INSTANCE ...) is being compiled.
;; Warning: MACHINE-INSTANCE-FROM-C (in lisp package) is called as a function--not yet defined
End of Pass 1.  
End of Pass 2.  
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
Finished compiling /usr/local/lib/lisp/site-init.
#"/usr/local/lib/lisp/site-init.o"




What am I missing?

Dave