Skip to content
Snippets Groups Projects
  1. Mar 13, 2001
  2. Mar 12, 2001
  3. Mar 11, 2001
  4. Mar 09, 2001
  5. Mar 08, 2001
  6. Mar 05, 2001
  7. Mar 04, 2001
  8. Mar 03, 2001
  9. Mar 01, 2001
  10. Feb 23, 2001
  11. Feb 22, 2001
  12. Feb 21, 2001
  13. Feb 20, 2001
  14. Feb 17, 2001
  15. Feb 16, 2001
  16. Feb 11, 2001
  17. Jan 28, 2001
  18. Jan 27, 2001
    • pw's avatar
      Silence compiler warnings about undefined function <hairy-make-instance-name> · fe6eee57
      pw authored
      when compiling a method containing a make-instance call.
      Test case:
      ~~~~~~~~~~~~~~~~~~~~~~~~~
      (defclass some-class ()
        ((slot :initarg :slot)))
      
      ;; This generates compiler warnings about unknown function
      ;; Warning: Undefined function:
      ;;    PCL::|MAKE-INSTANCE COMMON-LISP-USER::SOME-CLASS (:SLOT) NIL|
      ;; which goes away once the form is loaded.
      
      (defmethod fooey (x)
        (declare (ignore x)
      	#+nil   (optimize (inhibit-warnings 3))) ; this quiets things down
        (make-instance 'some-class))
      
      #|
      In: DEFMETHOD FOOEY (T)
        (DEFMETHOD FOOEY (X) (MAKE-INSTANCE 'SOME-CLASS :SLOT X))
      --> BLOCK MACROLET PCL::FAST-LEXICAL-METHOD-FUNCTIONS
      --> PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
      --> PCL::BIND-LEXICAL-METHOD-FUNCTIONS LET PCL::BIND-ARGS LET* BLOCK
      ==>
        (PCL::|MAKE-INSTANCE COMMON-LISP-USER::SOME-CLASS (:SLOT) NIL| 'SOME-CLASS
         (LIST :SLOT X))
      Warning: Undefined function: PCL::|MAKE-INSTANCE COMMON-LISP-USER::SOME-CLASS (:SLOT) NIL|
      
      
      Warning: This function is undefined:
        PCL::|MAKE-INSTANCE COMMON-LISP-USER::SOME-CLASS (:SLOT) NIL|
      |#
      fe6eee57
Loading