- When cl-truename encounters a broken symlink it returns it's path

      instead of signalling a file-error

 

 ** Enhancements:

 

    - Added code walker (present as *feature* :walker)

   #+ecl-min 'compiler-debug-note #-ecl-min 'compiler-note

   "A type denoting which compiler messages and conditions are _not_ displayed.")

 

 (defvar *compiler-break-enable* nil)

 

 (defvar *compiler-in-use* nil)

 ;;;;  Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya.

 ;;;;  Copyright (c) 1990, Giuseppe Attardi.

 ;;;;  Copyright (c) 2001, Juan Jose Garcia Ripoll

 ;;;;

 ;;;;    This program is free software; you can redistribute it and/or

 ;;;;    modify it under the terms of the GNU Library General Public

                 &aux

                 (*suppress-compiler-messages* (or *suppress-compiler-messages*

                                                   (not *compile-verbose*))))

   ;;

   ;; The epilogue-code can be either a string made of C code, or a

   ;; lisp form.  In the latter case we add some additional C code to

 :O-FILE, :C-FILE, :H-FILE, and :DATA-FILE keyword parameters allow you to

 control the intermediate files generated by the ECL compiler.If the file was

 compiled successfully, returns the pathname of the compiled file"

 

   #-dlopen

   (unless system-p

 after compilation."

   (unless (symbolp name) (error "~s is not a symbol." name))

 

   (cond ((and supplied-p def)

          (when (functionp def)

            (unless (function-lambda-expression def)

 (require 'rt)

 

 #+ecl (compile nil '(lambda () nil))

 

 (setq *load-verbose* nil

       *load-print* nil

              (with-output-to-string (*standard-output*)

                (let ((*error-output* *standard-output*)

                      (*compile-verbose* t)

                  (setf ok (compile-file ,filename ,@compiler-args))))))

        (values ok output))))