git » jacl.git » commit 392dc31

diff --git a/jacl-tests.js b/jacl-tests.js
index 67e809e..f92abb3 100644
--- a/jacl-tests.js
+++ b/jacl-tests.js
@@ -64,6 +64,9 @@ QUnit.test('Sharpsign', async is => {
   sym = await read1('#:foop ');
   is.strictEqual(sym.name, 'FOOP', 'uninterned sym has a name');
   is.strictEqual(sym.packageName, null, 'uninterned packageName is null');
+
+  sym = await read1("#'foop ");
+  is.ok(sym instanceof Cons, "#' makes a cons");
 });
 
 QUnit.test('Conses', async is => {
diff --git a/jacl.js b/jacl.js
index 2c85f77..1cb5bcf 100644
--- a/jacl.js
+++ b/jacl.js
@@ -313,6 +313,11 @@ const readSharpsign = async stream => {
       return new Values(await stream.read());
     case '<':
       throw new Error(`Illegal # char: <`);
+    case "'":
+      return new Values(Cons.listOf(
+        Package.intern('CL', 'FUNCTION'),
+        await (new Reader(stream)).read()
+      ));
     default:
       throw new Error(`Unknown # char: ${ch}`);
   }