← Back to branch summary

~ubuntu-branches/ubuntu/quantal/gclcvs/quantal

« back to all changes in this revision

Viewing changes to ansi-tests/packages-00.lsp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-06-24 15:13:46 UTC
  • Revision ID: james.westby@ubuntu.com-20040624151346-xh0xaaktyyp7aorc
Tags: 2.7.0-26
C_GC_OFFSET is 2 on m68k-linux

Show diffs side-by-side

added added

removed removed

Lines of Context:
ansi-tests/packages-00.lsp
 
1
;-*- Mode:     Lisp -*-
 
2
;;;; Author:   Paul Dietz
 
3
;;;; Created:  Sat Apr 25 08:07:31 1998
 
4
;;;; Contains: Package test code (common code)
 
5
 
 
6
(in-package :cl-test)
 
7
(declaim (optimize (safety 3)))
 
8
 
 
9
(report-and-ignore-errors
 
10
  (defpackage "A"
 
11
    (:use)
 
12
    (:nicknames "Q")
 
13
    (:export "FOO")))
 
14
 
 
15
(report-and-ignore-errors
 
16
  (defpackage "B"
 
17
    (:use "A")
 
18
    (:export "BAR")))
 
19
 
 
20
(report-and-ignore-errors
 
21
  (defpackage "DS1"
 
22
    (:use)
 
23
    (:intern "C" "D")
 
24
    (:export "A" "B")))
 
25
 
 
26
(report-and-ignore-errors
 
27
  (defpackage "DS2"
 
28
    (:use)
 
29
    (:intern "E" "F")
 
30
    (:export "G" "H" "A")))
 
31
 
 
32
(report-and-ignore-errors
 
33
  (defpackage "DS3"
 
34
    (:shadow "B")
 
35
    (:shadowing-import-from "DS1" "A")
 
36
    (:use "DS1" "DS2")
 
37
    (:export "A" "B" "G" "I" "J" "K")
 
38
    (:intern "L" "M")))
 
39
 
 
40
(report-and-ignore-errors
 
41
  (defpackage "DS4"
 
42
    (:shadowing-import-from "DS1" "B")
 
43
    (:use "DS1" "DS3")
 
44
    (:intern "X" "Y" "Z")
 
45
    (:import-from "DS2" "F")))