Changeset 8445


Ignore:
Timestamp:
02/01/05 15:22:06 (17 years ago)
Author:
piso
Message:

SYS:*KEYWORD-PACKAGE* => SYS:+KEYWORD-PACKAGE+

Location:
trunk/j/src/org/armedbear/lisp
Files:
4 edited

Legend:

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

    r8428 r8445  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: boot.lisp,v 1.201 2005-01-31 17:24:28 piso Exp $
     4;;; $Id: boot.lisp,v 1.202 2005-02-01 15:21:36 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    9494
    9595(defun make-keyword (symbol)
    96   (intern (symbol-name symbol) *keyword-package*))
     96  (intern (symbol-name symbol) +keyword-package+))
    9797
    9898(defun featurep (form)
     
    114114;;; READ-CONDITIONAL (from OpenMCL)
    115115(defun read-feature (stream)
    116   (let* ((f (let* ((*package* sys::*keyword-package*))
     116  (let* ((f (let* ((*package* +keyword-package+))
    117117              (read stream t nil t))))
    118118    (if (featurep f) #\+ #\-)))
  • trunk/j/src/org/armedbear/lisp/compile-system.lisp

    r8442 r8445  
    22;;;
    33;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: compile-system.lisp,v 1.39 2005-02-01 14:20:49 piso Exp $
     4;;; $Id: compile-system.lisp,v 1.40 2005-02-01 15:21:09 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    5050                   (when symbol
    5151                     ;; Force the symbol's package prefix to be written out.
    52                      (let ((*package* *keyword-package*))
     52                     (let ((*package* +keyword-package+))
    5353                       (format out "~S ~S ~S~%" symbol file line-number))))))
    5454          (incf line-number))))))
  • trunk/j/src/org/armedbear/lisp/defstruct.lisp

    r8404 r8445  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: defstruct.lisp,v 1.59 2005-01-27 12:42:40 piso Exp $
     4;;; $Id: defstruct.lisp,v 1.60 2005-02-01 15:22:06 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    105105
    106106(defun keywordify (symbol)
    107   (intern (symbol-name symbol) *keyword-package*))
     107  (intern (symbol-name symbol) +keyword-package+))
    108108
    109109(defun define-keyword-constructor (constructor)
  • trunk/j/src/org/armedbear/lisp/precompiler.lisp

    r8429 r8445  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: precompiler.lisp,v 1.87 2005-01-31 17:25:39 piso Exp $
     4;;; $Id: precompiler.lisp,v 1.88 2005-02-01 15:20:22 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    386386                     (if keyp
    387387                         ;; "&key x" => "&key ((:x x) nil)"
    388                          (push (list (list (intern (symbol-name var) sys:*keyword-package*)
     388                         (push (list (list (intern (symbol-name var) sys:+keyword-package+)
    389389                                           sym)
    390390                                     nil)
Note: See TracChangeset for help on using the changeset viewer.