Changeset 14824


Ignore:
Timestamp:
Jun 13, 2011, 3:40:44 PM (8 years ago)
Author:
gz
Message:

In redefine-kernel-function, add a restart to permanently turn off *warn-if-redefine-kernel*; in signal-compiler-warning, force a fresh line at end

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/sysutils.lisp

    r14760 r14824  
    390390                 (let ((pkg (symbol-package (if (consp name) (cadr name) name))))
    391391                   (or (eq *common-lisp-package* pkg) (eq *ccl-package* pkg)))))
    392     (cerror "Replace the definition of ~S."
    393             "The function ~S is predefined in Clozure CL." name)
     392    (restart-case
     393        (progn ;; work around ticket:865
     394          (cerror "Replace the definition of ~S."
     395                  "The function ~S is predefined in Clozure CL." name))
     396      (never-complain ()
     397        :report (lambda (stream)
     398                  (format stream "Replace the definition of ~S and allow such redefinitions in the future" name))
     399        (setq *warn-if-redefine-kernel* nil)))
    394400    (unless (consp name)
    395401      (proclaim-inline nil name))))
     
    724730      (let* ((indenting-stream (make-indenting-string-output-stream #\; 4)))
    725731        (format indenting-stream "~%~a" w)
    726         (format s "~a" (get-output-stream-string indenting-stream))))
     732        (format s "~a~&" (get-output-stream-string indenting-stream))))
    727733    (values harsh-p any-p w-file)))
    728734
Note: See TracChangeset for help on using the changeset viewer.