comparison lisp/emacs-lisp/bytecomp.el @ 2566:4f201a4ab030

(define-function): Changed name back to defalisaases to get things in a known-good state.

2565:c1a1557bffde

(defun byte-compile-output-file-form (form)
  ;; writes the given form to the output buffer, being careful of docstrings
  ;; in defun, defmacro, defvar, defconst and autoload because make-docfile is
  ;; so amazingly stupid.
  ;; define-functions are output directly by byte-compile-file-form-defmumble; it does
  ;; not pay to first build the define-function in defmumble and then parse it here.
  (if (and (memq (car-safe form) '(defun defmacro defvar defconst autoload))
	   (stringp (nth 3 form)))
      (byte-compile-output-docform '("\n(" 3 ")") form)
    (let ((print-escape-newlines t)
	  (print-readably t)	; print #[] for bytecode, 'x for (quote x)

      (setq form (byte-optimize-form form t)))
  (if handler
      (let ((for-effect t))
	;; To avoid consing up monstrously large forms at load time, we split
	;; the output regularly.
	(and (eq (car-safe form) 'define-function) (nthcdr 300 byte-compile-output)
	     (byte-compile-flush-pending))
	(funcall handler form)
	(if for-effect
	    (byte-compile-discard)))
    (byte-compile-form form t))

			 ((list 'quote (if macrop
					   (cons 'macro new-one)
					 new-one)))))
	     'byte-compile-two-args)
	  ;; Output the form by hand, that's much simpler than having
	  ;; b-c-output-file-form analyze the define-function.
	  (byte-compile-flush-pending)
	  (princ "\n(define-function '" outbuffer)
	  (prin1 name outbuffer)
	  (byte-compile-output-docform
	   (cond ((atom code)
		  (if macrop '(" '(macro . #[" 4 "])") '(" #[" 4 "]")))
		 ((eq (car code) 'quote)

      (cond ((eq (car-safe fun) 'lambda)
	     (setq fun (if macro
			   (cons 'macro (byte-compile-lambda fun))
			 (byte-compile-lambda fun)))
	     (if (symbolp form)
		 (define-function form fun)
	       fun)))))))

(defun byte-compile-sexp (sexp)
  "Compile and return SEXP."
  (displaying-byte-compile-warnings

2566:4f201a4ab030

(defun byte-compile-output-file-form (form)
  ;; writes the given form to the output buffer, being careful of docstrings
  ;; in defun, defmacro, defvar, defconst and autoload because make-docfile is
  ;; so amazingly stupid.
  ;; defalias calls are output directly by byte-compile-file-form-defmumble;
  ;; it does not pay to first build the defalias in defmumble and then parse
  ;; it here.
  (if (and (memq (car-safe form) '(defun defmacro defvar defconst autoload))
	   (stringp (nth 3 form)))
      (byte-compile-output-docform '("\n(" 3 ")") form)
    (let ((print-escape-newlines t)
	  (print-readably t)	; print #[] for bytecode, 'x for (quote x)

      (setq form (byte-optimize-form form t)))
  (if handler
      (let ((for-effect t))
	;; To avoid consing up monstrously large forms at load time, we split
	;; the output regularly.
	(and (eq (car-safe form) 'defalias) (nthcdr 300 byte-compile-output)
	     (byte-compile-flush-pending))
	(funcall handler form)
	(if for-effect
	    (byte-compile-discard)))
    (byte-compile-form form t))

			 ((list 'quote (if macrop
					   (cons 'macro new-one)
					 new-one)))))
	     'byte-compile-two-args)
	  ;; Output the form by hand, that's much simpler than having
	  ;; b-c-output-file-form analyze the defalias.
	  (byte-compile-flush-pending)
	  (princ "\n(defalias '" outbuffer)
	  (prin1 name outbuffer)
	  (byte-compile-output-docform
	   (cond ((atom code)
		  (if macrop '(" '(macro . #[" 4 "])") '(" #[" 4 "]")))
		 ((eq (car code) 'quote)

      (cond ((eq (car-safe fun) 'lambda)
	     (setq fun (if macro
			   (cons 'macro (byte-compile-lambda fun))
			 (byte-compile-lambda fun)))
	     (if (symbolp form)
		 (defalias form fun)
	       fun)))))))

(defun byte-compile-sexp (sexp)
  "Compile and return SEXP."
  (displaying-byte-compile-warnings