[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]


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
#include <sys/param.h>
#include <syscall.h>

static object machine_instance()

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

(defun machine-instance ()

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

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.

What am I missing?