Changeset 14230
- Timestamp:
- 11/02/12 11:13:16 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/asdf.lisp
r14210 r14230 1 1 ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*- 2 ;;; This is ASDF 2.2 5: Another System Definition Facility.2 ;;; This is ASDF 2.26: Another System Definition Facility. 3 3 ;;; 4 4 ;;; Feedback, bug reports, and patches are all welcome: … … 119 119 ;; "2.345.0.7" would be your seventh local modification of official release 2.345 120 120 ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6 121 (asdf-version "2.2 5")121 (asdf-version "2.26") 122 122 (existing-asdf (find-class 'component nil)) 123 123 (existing-version *asdf-version*) … … 231 231 (pkgdcl 232 232 :asdf 233 :nicknames (:asdf-utilities) ;; DEPRECATED! Do not use, for backward compatibility only.234 233 :use (:common-lisp) 235 234 :redefined-functions … … 3351 3350 (getenv-pathnames x :want-absolute t :want-directory t)) 3352 3351 3352 (defun* get-folder-path (folder) 3353 (or ;; this semi-portably implements a subset of the functionality of lispworks' sys:get-folder-path 3354 #+(and lispworks mswindows) (sys:get-folder-path folder) 3355 ;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\AppData 3356 (ecase folder 3357 (:local-appdata (getenv-absolute-directory "LOCALAPPDATA")) 3358 (:appdata (getenv-absolute-directory "APPDATA")) 3359 (:common-appdata (or (getenv-absolute-directory "ALLUSERSAPPDATA") 3360 (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/")))))) 3353 3361 3354 3362 (defun* user-configuration-directories () … … 3360 3368 :collect (subpathname* dir "common-lisp/")))) 3361 3369 ,@(when (os-windows-p) 3362 `(,(subpathname* (or #+(and lispworks (not lispworks-personal-edition)) 3363 (sys:get-folder-path :local-appdata) 3364 (getenv-absolute-directory "LOCALAPPDATA")) 3365 "common-lisp/config/") 3366 ;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\AppData 3367 ,(subpathname* (or #+(and lispworks (not lispworks-personal-edition)) 3368 (sys:get-folder-path :appdata) 3369 (getenv-absolute-directory "APPDATA")) 3370 "common-lisp/config/"))) 3370 `(,(subpathname* (get-folder-path :local-appdata) "common-lisp/config/") 3371 ,(subpathname* (get-folder-path :appdata) "common-lisp/config/"))) 3371 3372 ,(subpathname (user-homedir) ".config/common-lisp/")))) 3372 3373 (remove-duplicates (remove-if-not #'absolute-pathname-p dirs) … … 3379 3380 (aif 3380 3381 ;; read-windows-registry HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common AppData 3381 (subpathname* (or #+(and lispworks (not lispworks-personal-edition)) 3382 (sys:get-folder-path :common-appdata) 3383 (getenv-absolute-directory "ALLUSERSAPPDATA") 3384 (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/")) 3385 "common-lisp/config/") 3382 (subpathname* (get-folder-path :common-appdata) "common-lisp/config/") 3386 3383 (list it))))) 3387 3384 … … 3508 3505 (try (getenv-absolute-directory "XDG_CACHE_HOME") "common-lisp" :implementation) 3509 3506 (when (os-windows-p) 3510 (try (or #+(and lispworks (not lispworks-personal-edition)) 3511 (sys:get-folder-path :local-appdata) 3512 (getenv-absolute-directory "LOCALAPPDATA") 3513 #+(and lispworks (not lispworks-personal-edition)) 3514 (sys:get-folder-path :appdata) 3515 (getenv-absolute-directory "APPDATA")) 3507 (try (or (get-folder-path :local-appdata) 3508 (get-folder-path :appdata)) 3516 3509 "common-lisp" "cache" :implementation)) 3517 3510 '(:home ".cache" "common-lisp" :implementation)))) … … 3918 3911 ;; what cfp should be doing, w/ mp* instead of mp 3919 3912 (let* ((type (pathname-type (apply 'compile-file-pathname "x.lisp" keys))) 3920 3921 3922 3913 (defaults (make-pathname 3914 :type type :defaults (merge-pathnames* input-file)))) 3915 (merge-pathnames* output-file defaults)) 3923 3916 (apply-output-translations 3924 (apply 'compile-file-pathname input-file keys)))) 3917 (apply 'compile-file-pathname input-file 3918 (if output-file keys (remove-keyword :output-file keys)))))) 3925 3919 3926 3920 (defun* tmpize-pathname (x) … … 4256 4250 (defun* wrapping-source-registry () 4257 4251 `(:source-registry 4252 #+ecl (:tree ,(translate-logical-pathname "SYS:")) 4258 4253 #+mkcl (:tree ,(translate-logical-pathname "CONTRIB:")) 4259 4254 #+sbcl (:tree ,(truenamize (getenv-pathname "SBCL_HOME" :want-directory t))) … … 4272 4267 '("/usr/local/share" "/usr/share")))) 4273 4268 ,@(when (os-windows-p) 4274 `(,(or #+(and lispworks (not lispworks-personal-edition)) 4275 (sys:get-folder-path :local-appdata) 4276 (getenv-absolute-directory "LOCALAPPDATA")) 4277 ,(or #+(and lispworks (not lispworks-personal-edition)) 4278 (sys:get-folder-path :appdata) 4279 (getenv-absolute-directory "APPDATA")) 4280 ,(or #+(and lispworks (not lispworks-personal-edition)) 4281 (sys:get-folder-path :common-appdata) 4282 (getenv-absolute-directory "ALLUSERSAPPDATA") 4283 (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/"))))) 4269 (mapcar 'get-folder-path '(:local-appdata :appdata :common-appdata)))) 4284 4270 :collect `(:directory ,(subpathname* dir "common-lisp/systems/")) 4285 4271 :collect `(:tree ,(subpathname* dir "common-lisp/source/")))
Note: See TracChangeset
for help on using the changeset viewer.