/[emacs]/emacs/lisp/emacs-lisp/cl.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/cl.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by rms, Mon Jun 10 09:00:52 2002 UTC revision 1.31.2.1 by miles, Fri Apr 4 06:20:16 2003 UTC
# Line 178  Keywords supported:  :test :test-not :ke Line 178  Keywords supported:  :test :test-not :ke
178  (defun cl-set-substring (str start end val)  (defun cl-set-substring (str start end val)
179    (if end (if (< end 0) (incf end (length str)))    (if end (if (< end 0) (incf end (length str)))
180      (setq end (length str)))      (setq end (length str)))
181    (if (< start 0) (incf start str))    (if (< start 0) (incf start (length str)))
182    (concat (and (> start 0) (substring str 0 start))    (concat (and (> start 0) (substring str 0 start))
183            val            val
184            (and (< end (length str)) (substring str end))))            (and (< end (length str)) (substring str end))))
# Line 207  Keywords supported:  :test :test-not :ke Line 207  Keywords supported:  :test :test-not :ke
207    "Return multiple values, Common Lisp style.    "Return multiple values, Common Lisp style.
208  The arguments of `values' are the values  The arguments of `values' are the values
209  that the containing function should return."  that the containing function should return."
210    (apply 'list values))    values)
211    
212  (defsubst values-list (list)  (defsubst values-list (list)
213    "Return multiple values, Common Lisp style, taken from a list.    "Return multiple values, Common Lisp style, taken from a list.
# Line 229  right when EXPRESSION calls an ordinary Line 229  right when EXPRESSION calls an ordinary
229  one value."  one value."
230    (apply function expression))    (apply function expression))
231    
232    (defalias 'multiple-value-call 'apply
233      "Apply FUNCTION to ARGUMENTS, taking multiple values into account.
234    This implementation only handles the case where there is only one argument.")
235    
236  (defsubst nth-value (n expression)  (defsubst nth-value (n expression)
237    "Evaluate EXPRESSION to get multiple values and return the Nth one.    "Evaluate EXPRESSION to get multiple values and return the Nth one.
238  This handles multiple values in Common Lisp style, but it does not work  This handles multiple values in Common Lisp style, but it does not work
# Line 674  Keywords supported:  :test :test-not :ke Line 678  Keywords supported:  :test :test-not :ke
678  (defun cl-hack-byte-compiler ()  (defun cl-hack-byte-compiler ()
679    (if (and (not cl-hacked-flag) (fboundp 'byte-compile-file-form))    (if (and (not cl-hacked-flag) (fboundp 'byte-compile-file-form))
680        (progn        (progn
681          (cl-compile-time-init)   ; in cl-macs.el          (setq cl-hacked-flag t)         ; Do it first, to prevent recursion.
682          (setq cl-hacked-flag t))))          (cl-compile-time-init))))       ; In cl-macs.el.
683    
684  ;;; Try it now in case the compiler has already been loaded.  ;;; Try it now in case the compiler has already been loaded.
685  (cl-hack-byte-compiler)  (cl-hack-byte-compiler)

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.31.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26