From: Yaroslav K. <kav...@je...> - 2006-01-24 11:11:56
|
Christophe Rhodes wrote: > If the problem is that the constant value isn't present in the > cross-compile environment, this is what grovel-headers is for. I am sorry for the incomplete information. build log: ... ; compiling file "C:\\gnu\\home\\src\\sbcl\\sbcl\\src\\code\\toplevel.lisp" (written 23 JAN 2006 10:23:28 PM): ; compiling (IN-PACKAGE "SB!IMPL") <skip successful report> ; compiling (DEFUN PROCESS-EVAL-OPTIONS ...) compilation aborted because of fatal error: READ failure in COMPILE-FILE: READER-ERROR at 21225 (line 487, column 87) on #<SB-SYS:FD-STREAM for "file C:\\gnu\\home\\src\\sbcl\\sbcl\\src\\code\\toplevel.lisp" {9513681}>: Symbol "GET-SPECIAL-FOLDER-PATH" not found in the SB!WIN32 package. ... this part of toplevel.lisp: #!+win32 (probe-init-files sysinit (init-file-name (posix-getenv "SBCL_HOME") "sbclrc") (concatenate 'string (sb!win32:get-special-folder-path sb!win32:CSIDL_COMMON_APPDATA) "\\sbcl\\sbclrc"))) end of win32.lisp: (defun get-special-folder-path (CSIDL &optional create-path) "http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/shgetspecialfolderpath.asp" (with-alien ((apath (* char) (make-alien char (1+ MAX_PATH)))) (alien-funcall (extern-alien "SHGetSpecialFolderPathA" (function boolean handle (* char) int boolean)) (get-console-window) apath CSIDL create-path) (cast apath c-string))) Thanks! -- WBR, Yaroslav Kavenchuk. |