backward-internals.lisp 642 Bytes
Newer Older
1
;;;; -------------------------------------------------------------------------
2
;;; Internal hacks for backward-compatibility
3

4
(uiop/package:define-package :asdf/backward-internals
5
  (:recycle :asdf/backward-internals :asdf)
6
  (:use :uiop/common-lisp :uiop :asdf/upgrade :asdf/find-system)
7
  (:export #:load-sysdef))
8 9
(in-package :asdf/backward-internals)

10
(with-asdf-deprecation (:style-warning "3.2" :warning "3.4")
11 12 13 14
  (defun load-sysdef (name pathname)
    (declare (ignore name pathname))
    ;; Needed for backward compatibility with swank-asdf from SLIME 2015-12-01 or older.
    (error "Use asdf:load-asd instead of asdf::load-sysdef")))