Mercurial > hg > xemacs-beta

comparison lisp/ilisp/ilisp-cl.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents 376386a54a3c
children
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
1 ;;; -*- Mode: Emacs-Lisp -*- 1 ;;; -*- Mode: Emacs-Lisp -*-
2 2
3 ;;; ilisp-cl.el -- 3 ;;; ilisp-cl.el --
4 4
5 ;;; This file is part of ILISP. 5 ;;; This file is part of ILISP.
6 ;;; Version: 5.7 6 ;;; Version: 5.8
7 ;;; 7 ;;;
8 ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell 8 ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
9 ;;; 1993, 1994 Ivan Vasquez 9 ;;; 1993, 1994 Ivan Vasquez
10 ;;; 1994, 1995 Marco Antoniotti and Rick Busdiecker 10 ;;; 1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
11 ;;; 1996 Marco Antoniotti and Rick Campbell
11 ;;; 12 ;;;
12 ;;; Other authors' names for which this Copyright notice also holds 13 ;;; Other authors' names for which this Copyright notice also holds
13 ;;; may appear later in this file. 14 ;;; may appear later in this file.
14 ;;; 15 ;;;
15 ;;; Send mail to 'ilisp-request@lehman.com' to be included in the 16 ;;; Send mail to 'ilisp-request@naggum.no' to be included in the
16 ;;; ILISP mailing list. 'ilisp@lehman.com' is the general ILISP 17 ;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
17 ;;; mailing list were bugs and improvements are discussed. 18 ;;; mailing list were bugs and improvements are discussed.
18 ;;; 19 ;;;
19 ;;; ILISP is freely redistributable under the terms found in the file 20 ;;; ILISP is freely redistributable under the terms found in the file
20 ;;; COPYING. 21 ;;; COPYING.
21 22
27 28
28 ;;;%%Common LISP 29 ;;;%%Common LISP
29 30
30 (defvar ilisp-cl-ilisp-package-file "ilisp-pkg.lisp") 31 (defvar ilisp-cl-ilisp-package-file "ilisp-pkg.lisp")
31 32
32 (defvar ilisp-clisp-init-file "clisp.lisp") 33 (defvar ilisp-clisp-init-file "cl-ilisp.lisp")
33 34
34 (defdialect clisp "Common LISP" 35 (defdialect clisp "Common LISP"
35 ilisp 36 ilisp
36 (setq ilisp-load-or-send-command 37 (setq ilisp-load-or-send-command
37 "(or (and (load \"%s\" :if-does-not-exist nil) t) 38 "(or (and (load \"%s\" :if-does-not-exist nil) t)