Changeset 3497


Ignore:
Timestamp:
08/24/03 19:17:53 (19 years ago)
Author:
piso
Message:

DEFVAR

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/boot.lisp

    r3495 r3497  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: boot.lisp,v 1.94 2003-08-24 18:36:34 piso Exp $
     4;;; $Id: boot.lisp,v 1.95 2003-08-24 19:17:53 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    4343(defmacro defparameter (name initial-value &optional docstring)
    4444  (list 'sys::%defparameter (list 'QUOTE name) initial-value docstring))
     45
     46(sys::%load "autoloads.lisp")
     47(sys::%load "early-defuns.lisp")
     48(sys::%load "backquote.lisp")
     49(sys::%load "setf.lisp")
     50(sys::%load "documentation.lisp")
     51
     52(defmacro defvar (var &optional (val nil valp) (doc nil docp))
     53  `(progn
     54     (sys::%defvar ',var)
     55     ,@(when valp
     56   `((unless (boundp ',var)
     57       (setq ,var ,val))))
     58     ,@(when docp
     59         `((setf (documentation ',var 'variable) ',doc)))
     60     ',var))
     61
    4562
    4663(defvar *features*
     
    85102
    86103
    87 (sys::%load "autoloads.lisp")
    88 (sys::%load "early-defuns.lisp")
    89 (sys::%load "backquote.lisp")
    90 (sys::%load "setf.lisp")
    91104(sys::%load "macros.lisp")
    92105(sys::%load "fixme.lisp")
Note: See TracChangeset for help on using the changeset viewer.