Changeset 8739


Ignore:
Timestamp:
03/07/05 19:00:12 (16 years ago)
Author:
piso
Message:

SYS:FEATUREP => EXT:FEATUREP

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

Legend:

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

    r8534 r8739  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: boot.lisp,v 1.205 2005-02-11 19:38:14 piso Exp $
     4;;; $Id: boot.lisp,v 1.206 2005-03-07 18:58:58 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    9797  (intern (symbol-name symbol) +keyword-package+))
    9898
     99(in-package #:extensions)
     100
    99101(defun featurep (form)
    100102  (cond ((atom form)
    101          (ext:memq form *features*))
     103         (memq form *features*))
    102104        ((eq (car form) :not)
    103105         (not (featurep (cadr form))))
     
    111113         (error "READ-FEATURE"))))
    112114
    113 (export 'featurep '#:system)
     115(export 'featurep '#:extensions)
     116
     117(in-package #:system)
    114118
    115119;;; READ-CONDITIONAL (from OpenMCL)
  • trunk/j/src/org/armedbear/lisp/swank-protocol.lisp

    r8464 r8739  
    22;;;
    33;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: swank-protocol.lisp,v 1.5 2005-02-04 19:35:50 piso Exp $
     4;;; $Id: swank-protocol.lisp,v 1.6 2005-03-07 19:00:12 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    7272(defun port-file ()
    7373  (merge-pathnames ".j/swank"
    74                    (if (sys:featurep :windows) "C:\\" (user-homedir-pathname))))
     74                   (if (ext:featurep :windows) "C:\\" (user-homedir-pathname))))
    7575
    7676#-abcl
  • trunk/j/src/org/armedbear/lisp/top-level.lisp

    r8646 r8739  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: top-level.lisp,v 1.42 2005-02-27 03:06:10 piso Exp $
     4;;; $Id: top-level.lisp,v 1.43 2005-03-07 18:59:29 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    172172(defun cd-command (args)
    173173  (cond ((null args)
    174          (setf args (if (sys::featurep :windows)
     174         (setf args (if (featurep :windows)
    175175                        "C:\\"
    176176                        (namestring (user-homedir-pathname)))))
     
    196196(defun ls-command (args)
    197197  (let ((args (if (stringp args) args ""))
    198         (ls-program (if (sys::featurep :windows) "dir" "ls")))
     198        (ls-program (if (featurep :windows) "dir" "ls")))
    199199    (run-shell-command (concatenate 'string ls-program " " args)
    200200                       :directory *default-pathname-defaults*))
     
    398398    (with-simple-restart (top-level
    399399                          "Return to top level.")
    400       (if (sys::featurep :j)
     400      (if (featurep :j)
    401401          (handler-case
    402402              (repl)
Note: See TracChangeset for help on using the changeset viewer.