Changeset 3497

Timestamp:

08/24/03 19:17:53 (19 years ago)

Author:

piso

Message:

DEFVAR

File:

• trunk/j/src/org/armedbear/lisp/boot.lisp (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/boot.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: boot.lisp,v 1.94 2003-08-24 18:36:34 piso Exp $
+;;; $Id: boot.lisp,v 1.95 2003-08-24 19:17:53 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -43 +43 @@
 (defmacro defparameter (name initial-value &optional docstring)
   (list 'sys::%defparameter (list 'QUOTE name) initial-value docstring))
+
+(sys::%load "autoloads.lisp")
+(sys::%load "early-defuns.lisp")
+(sys::%load "backquote.lisp")
+(sys::%load "setf.lisp")
+(sys::%load "documentation.lisp")
+
+(defmacro defvar (var &optional (val nil valp) (doc nil docp))
+  `(progn
+     (sys::%defvar ',var)
+     ,@(when valp
+   `((unless (boundp ',var)
+       (setq ,var ,val))))
+     ,@(when docp
+         `((setf (documentation ',var 'variable) ',doc)))
+     ',var))
+
 
 (defvar *features*
@@ -85 +102 @@
 
 
-(sys::%load "autoloads.lisp")
-(sys::%load "early-defuns.lisp")
-(sys::%load "backquote.lisp")
-(sys::%load "setf.lisp")
 (sys::%load "macros.lisp")
 (sys::%load "fixme.lisp")