Mercurial > hg > xemacs-beta

comparison lisp/cl/cl.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children b405438285a2
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 ;; General Public License for more details. 19 ;; General Public License for more details.
20 20
21 ;; You should have received a copy of the GNU General Public License 21 ;; You should have received a copy of the GNU General Public License
22 ;; along with XEmacs; see the file COPYING. If not, write to the Free 22 ;; along with XEmacs; see the file COPYING. If not, write to the Free
23 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
24 24 ;; 02111-1307, USA.
25 ;;; Synched up with: FSF 19.30. 25
26 ;;; Synched up with: FSF 19.34.
26 27
27 ;;; Commentary: 28 ;;; Commentary:
28 29
29 ;; These are extensions to Emacs Lisp that provide a degree of 30 ;; These are extensions to Emacs Lisp that provide a degree of
30 ;; Common Lisp compatibility, beyond what is already built-in 31 ;; Common Lisp compatibility, beyond what is already built-in
279 ;;; Declarations. 280 ;;; Declarations.
280 281
281 (defvar cl-compiling-file nil) 282 (defvar cl-compiling-file nil)
282 (defun cl-compiling-file () 283 (defun cl-compiling-file ()
283 (or cl-compiling-file 284 (or cl-compiling-file
285 ;; XEmacs change
284 ; (and (boundp 'outbuffer) (bufferp (symbol-value 'outbuffer)) 286 ; (and (boundp 'outbuffer) (bufferp (symbol-value 'outbuffer))
285 ; (equal (buffer-name (symbol-value 'outbuffer)) 287 ; (equal (buffer-name (symbol-value 'outbuffer))
286 ; " *Compiler Output*")) 288 ; " *Compiler Output*"))
287 (and (boundp 'byte-compile-outbuffer) 289 (and (boundp 'byte-compile-outbuffer)
288 (bufferp (symbol-value 'byte-compile-outbuffer)) 290 (bufferp (symbol-value 'byte-compile-outbuffer))