[Ecls-list] [PATCH] Compiler error, Windows MSVC

[Andrew Paul]

Hello,

With respect to the bug posted here:

http://sourceforge.net/tracker/?func=detail&aid=3477551&group_id=30035&atid=398053

I think I have found the problem and have corrected it:


diff --git a/src/c/symbols_list.h b/src/c/symbols_list.h
index 7a04309..9a7db73 100755
--- a/src/c/symbols_list.h
+++ b/src/c/symbols_list.h
@@ -1721,7 +1721,7 @@ cl_symbols[] = {
 {CLOS_ "VALIDATE-SUPERCLASS", CLOS_ORDINARY, NULL, -1, OBJNULL},
 {CLOS_ "WRITER-METHOD-CLASS", CLOS_ORDINARY, NULL, -1, OBJNULL},
 {SYS_ "CLEAR-GFUN-HASH", SI_ORDINARY, si_clear_gfun_hash, 1, OBJNULL},
-{CLOS_ "NEED-TO-MAKE-LOAD-FORM-P", CLOS_ORDINARY, ECL_NAME(clos_need_to_make_load_form_p), 1, OBJNULL},
+{CLOS_ "NEED-TO-MAKE-LOAD-FORM-P", CLOS_ORDINARY, ECL_NAME(clos_need_to_make_load_form_p), 2, OBJNULL},
 {CLOS_ "LOAD-DEFCLASS", CLOS_ORDINARY, ECL_NAME(clos_load_defclass), 4, OBJNULL},
 #endif
 
diff --git a/src/new-cmp/cmpdata.lsp b/src/new-cmp/cmpdata.lsp
index 4b70510..0a35608 100644
--- a/src/new-cmp/cmpdata.lsp
+++ b/src/new-cmp/cmpdata.lsp
@@ -59,7 +59,7 @@
   (typep (first data-record) 'fixnum))
 
 (defun add-load-form (object location)
-  (when (clos::need-to-make-load-form-p object)
+  (when (clos::need-to-make-load-form-p object *cmp-env*)
     (if (not (eq *compiler-phase* 't1))
 	(error "Unable to internalize complex object ~A in ~a phase"
                object *compiler-phase*)


In addition, there seems to be something wrong with asdf - when it is loaded, requiring a prebuilt contrib module (eg sockets) generates asdf errors, as it tries to handle it instead of the contrib loader. 
Error Output:

Condition of type: FILE-ERROR
Filesystem error with pathname #P"C:/ecl/sockets.fasc".
Either
 1) the file does not exist, or
...
Broken at SI:BYTECODES. [Evaluation of: NIL] In: #<process TOP-LEVEL>

For now, I simply require any of them I need before asdf e.g. (require 'sockets) before loading quicklisp.

Finally, a heads-up for anyone using a symlinked local-projects: write-file-date returns nil for windows symlinks (created with mklink /D )